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VORWORT 


Mit der Floppy VC-1541 steht dem COMMODORE Anwender für 
erstaunlich wenig Geld ein sehr leistungsfähiges externes 
Speichermedium zur Verfügung. Um die vielseitigen 
Möglichkeiten der 1541 ausschöpfen zu können, bedarf es aber 
entsprechender Informationen und Anregungen. Lothar Englisch 
und Norbert Szczepanowski haben in  monatelanger  Kleinarbeit 
alle Geheimnisse der 1541 für Sie ergründet. 

Das große Floppy Buch reicht von der einfachen 
Programmspeicherung über den anspruchsvollen Direktzugriff 
bis hin zur Overlaytechnik. Anfänger werden die zahlreichen 
Beispielprogramme begrüßen, mit denen der Text anschaulich 
illustriert wird. Maschinenprogrammierer werden insbesondere 


das ausführlich dokumentierte Listing des 
Diskettenbetriebssystems (DOS) schätzen und die exakten 
technischen Beschreibungen. Ein echtes Schnäppchen wird "Das 


große Floppy Buch" alleine schon durch die große Anzahl 
komplett lauffertiger Programme, die nur noch eingetippt 
werden müssen. Neben BASIC-Erweiterungenm, hilfreichen 
Dienstprogrammen und nützlicher Routinen wie z.B. Spooling 
zahlen hierzu vor allem eine leistungsfähige Adreßverwaltung, 
eine komplette Haushaltsbuchführung und ein komfortabler 
DOS-Monitor zur Manipulation einzelner Sektoren. 

Viel Spaß bei der Lektüre des großen Floppy Buches und bei 
der Arbeit mit Ihrer Floppy VC-1541. 


z 


Dr. Achim Becker 
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Kapitel 1: Einführung in die Programmierung der VC-1541 


1.1 Der erste Kontakt mit der Floppy-Disk 


Da steht sie nun, Ihre neue Diskettenstation. Schnell, 
leistungsfähig und für Sie zunächst ein Buch mit sieben 
Siegeln. Aber keine Angst. Schrittweise werden wir Sie in die 
Kunst der Diskettenprogrammierung einführen. Dieses erste 
Teil des Buches gibt dem Anfänger einen intensiven überblick 
über den Umgang mit der Floppy VC-1541 und über Ihre 
Programmierung. Jedem Befehl folgt mindestens ein Beispiel, 
an dem seine Funktion erprobt und erkannt werden kann. Sie 
werden überrascht sein, wie einfach doch die Handhabung Ihrer 
Diskettenstation sein kann, wenn man nur im Besitz von guter, 
begleitender Literatur ist. 

Der Anfänger, der das Laufwerk zunächst hauptsächlich zur 
Speicherung von Programmen nutzen wird und vieleicht beim 
Kauf auch kein anderes Einsatzgebiet in Erwägung gezogen hat, 
wird in diesem Buch mit den vielen anderen Möglichkeiten der 
Diskettenprogrammierung vertraut gemacht. Ein Programmierer, 
der vorher die Datenspeicherung auf Kassette organisierte 
wird die wesentlichen Vorteile der Diskette erkennen und 
einzusetzen lernen. 

Auch erfahrene Frogrammierer sollten sich nicht scheuen, das 
erste Kapitel intensiv zu erarbeiten, denn sie werden 
sicherlich Ihre Kenntnisse erweitern. Dies betrifft besonders 
die relative Dateiverwaltung. 


1.1.1 Das Disketten-Betriebssystem 


Die Diskettenstation besitzt neben der Laufwerksmechanik und 
der Elektronik wie der VC-20 und der Commodore &4 ein eigenes 
Betriebssystem zur Steuerung der internen Vorgänge und zum 
Ausführen der vom Rechner übersandten Befehle. Dieses DOS 
(Disk Operating System) genannte Betriebssystem ist auf dem 
VC-20 und Commodore 64 abgestimmt und trägt die Bezeichnung 
CBM DOS V2.6 1541. Diese Version V2.6 enthält auch einige 
zusätzliche Möglichkeiten, die sich mit dem VC-20 und dem 
Commodore 64 nicht ohne weiters nutzen lassen. 


Der Commodore 64 und der VC-20 enthalten das BASIC CBM 2.0. 
Die VC-1541 hingegen versteht die erweiterten 
Diskettenbefehle des BASIC 4.0, die sich mit dem BASIC 42.0 
simulieren lassen. 


Am Ende des Kapitels folgt eine Auflistung sämtlicher Befehle 
des BASIC 2.0 mit entsprechenden Befehlen des komfortableren 
BASIC 4.0, wie es bei den größeren  CBM-Rechnern (4000-er, 
8000-er und der neuen 600-er und 700-er Serie) integriert 
ist. 


Das CBM BASIC 4.0 ist auch auf dem VC 20 und dem COMMODORE 64 
einsetzbar. Es ist in folgenden Produkten, die in unserem VC 
INFO ausführlich beschrieben sind, intergriert: 


VC 20: DATA BECKER IEC-Bus mit DISC BASIC 
CBM 64: DATA BECKER IEC-Bus mit DISC BASIC 


SUPERTWIN 
MASTER 64 


1.1.2 Die beigelegte Test/Demo-Diskette 


Sicher wußten Sie mit dieser Diskette erst gar nichts 


anzufangen. Das soll Sie aber nicht irritieren. Neben 
Programmbeispielen enthält diese Diskette Dienstprogramme, 
die Sie ohne den entsprechenden Kenntnissen des 


Disketten-Betriebssystems nicht sinnvoll bedienen können. 
Legen Sie diese Diskette erst einmal beiseite. Im Laufe 
dieses und des folgenden Kapitels erlernen Sie alles, was das 
DOS zu bieten hat und werden bald in der Lage sein, selbst 


ähnliche Dienstprogramme ohne großartige Anstrengung zu 
schreiben. 

Die Test/Demo-Diskette wird später noch ausführlich 
beschrieben. 


1.1.3 Die Vorbehandlung neuer Disketten zum Einsatz 


Ladenübliche, "rohe" Disketten müssen erst vorbehandelt 
werden, bevor man sie zur Datenspeicherung verwenden kann. 
Diesen Vorgang nennt man in der Fachsprache  "Formatieren". 
Was bedeutet nun "Formatieren"? Jedes typenungleiche Laufwerk 
hat seine Besonderheiten. So ist die Diskette z.B. in Spuren 
aufgeteilt, deren Anzahl bei vielen Laufwerken 
unterschiedlich ist. Außerdem ist jede Spur in Sektoren 
gegliedert, deren Anzahl ebenfalls zwischen verschiedenen 
Laufwerken variieren kann. Jeder dieser Sektoren erhält 
während dem Formatieren seine "Adresse", an der das DOS ihn 
identifiziert. Diese Adresse besteht aus der fortlaufenden 
Nummer von Spur und Sektor. Weiterhin wird jeder Sektor mit 
einem Kode belegt, an dem das DOS erkennt, ob die Diskette 
auch auf diesem Laufwerktyp formatiert wurde. Dieses 
Formatkennzeichen besteht aus zwei Zeichen, und enthält bei 
der VC 1541 "20". Der Rest des Sektors ("Block" genannt) kann 
maximal 256 Zeichen aufnehmen. 


Die letzte Aufgabe des  "Formatierens" ist, das Directory 
(Inhaltsverzeichnis) der Diskette anzulegen. In der Directory 
sind u.a. alle Blöcke der Diskette als "belegt" oder 


"freigegeben" gekennzeichnet. Sie befindet sich auf Spur 18 
der Diskette. 


1.1.4 Einige Daten der VC 1541-Diskette: 


Diskette: 

Anzahl Spuren: 55 

Anzahl Sektoren je Spur: 17 bis 21 (je nach Größe 
der Spur) 

Bytes (Zeichen) je Block: 256 

Gesamtzahl der Blöcke: 683 

Zahl der freien Blöcke: 644 (die Directoy belegt 
den Rest) 


Einträge in der Directory: 144 pro Diskette 
Laufwerk: 


- intelligentes Peripheriegerät mit eigenem Prozessor und 
eigenem Betriebssystem 

- Anschluß am seriellen IEC-Bus von CBM 64 oder VC-20, Ge- 
rätenummer 4-15 (standard 8) 


Diese Daten sollen vorerst genügen. Sie lernen später weitere 
kennen und verstehen. 


1.2 Das Speichern von Programmen auf Diskette 


Die Überlegenheit des Diskettenlaufwerks als externes 
Speichermedium gegenüber dem Rekorder zeigt sich bereits bei 
der Abspeicherung von Frogrammen. Die Speicherung von 
Frogrammen ist mit einem Diskettenlaufwerk erheblich 
komfortabler als mit einem Cassettenrekorder. Ein 
wesentlicher Vorteil liegt in der Geschwindigkeit . der 


übertragung von und zum Rechner. Hierzu 2 Beispiele: 


Das Abspeichern eines 5 KByte großen Programms dauert: 
- mit der Datasette VC-1530 75 Sekunden 
— mit der Floppy VC-1541 nur 12 Sekunden 


Das Laden eines 16 KByte grofien Programms dauert: 
— mit der Datasette VC-1530 330 Sekunden 
— mit der Floppy VC-1541 nur 50 Sekunden 


Ein weiterer Vorteil ist, daß auf der Diskette mehrere 
Frogramme übersichtlich abgelegt werden können. Um ein 
Programm zu laden, schaut man sich lediglich das 
Inhaltsverzeichnis (Directory) der Diskette an und wählt dann 
das gewünschte Programm aus. Zwar können auf einer Kassette 
auch mehrere Programme gespeichert werden, jedoch ist das 
Aufsuchen eines Programms sehr umständlich, da die 
entsprechende Bandposition erst durch Spulen der Kassette 
aufgesucht werden muß. Bevor Sie die Beispiele in den 
folgenden Abschnitten ausprobieren, sollten Sie beachten, daß 
vorher eine Diskette gemäß Abschnitt 1.3.2 zu formatieren 
ist, um Programme auf dieser Diskette abspeichern zu können. 


1.2.1 SAVE - Speichern von BASIC-Programmen 


Vieleicht waren Sie vorher im Besitz einer Datasette, mit der 
Sie sicher Programe abgespeichert haben. Der Befehl zur 
Speicherung von Progr ammen auf der Floppy-Station 
unterscheidet sich nicht wesentlich davon. Sie müssen dem 
Rechner lediglich mitteilen, daß er das Programm auf Diskette 
und nicht auf Kassette zu speichern hat. Dies geschieht durch 
zusätzliche Angabe der Gerätenummer B hinter dem Befehl SAVE. 
Alle serienmäßig produzierten Laufwerke sind auf diese 
Adresse hardwaremäßig vorbereitet. Schreiben Sie nun einmal 
ein kleines BASIC-Programm und speichern es mit dem Befehl 


SAVE"TEST",8 
ab. Geben Sie anschließend den Befehl "NEW" ein, damit der 


BASIC-Speicher gelöscht wird. Im folgende Abschnitt erfahren 
Sie dann ‚wie das Programm wieder zurückgeholt wird. 


1.2.2 LOAD - Laden von BASIC-Programmen 


Wie beim vorhergehenden Abschnitt ist dieser Befehl bis auf 
die zusätzliche Angabe der Gerätenummer mit dem Befehl "LOAD" 
für die Datasette identisch. Laden Sie nun das im vorherigen 
Abschnitt gespeicherte Programm mit 


LOAD "TEST",8 


ieder in den Speicher. Mit dem Befehl "LIST" können Sie den 
erfolgten Ladevorgang erkennen. Ein eventuell vorher im 
Speicher befindliches Programm ist aber nun gelöscht, da bei 
jedem Ladevorgang das Programm ab der Anfangsadresse des 
BASIC-Speichers abgelegt wird. Es besteht jedoch die 


Möglichkeit, das im Speicher befindliche Programm zu 
erhalten, wenn dessen Endadresse als Anfangsadresse gesetzt 
wird. Dieses "Zusammenfügen" zweier Programme nennt man 


"MERGE". Eine entsprechnede Routine ist in einem späteren 
Aschnitt enthalten. 


1.2.3 VERIFY - überprüfen von gespeicherten Programmen 


Wenn Sie ein Programm mit dem Befehl “SAVE” auf Diskette 
gespeichert haben, so besteht die Möglichkeit zu überprüfen, 
ob dieses Programm auch richtig abgelegt wurde. Das wird mit 
dem VERIFY-Befehl realisiert. Der Befehl hat folgendes 
Format: 


VERIFY "filename",8 


Angenommen Sie haben ein Programm mit ‘SAVE "TEST",8* 
gespeichert. Dann befindet sich dieses Programm immer noch im 
Speicher. Dieses im Speicher befindliche Programm wird dann 
durch diesen Befehl mit dem tatsächlich  abgespeichertem 
verglichen. Sind beide Frogramme identisch, so meldet der 
Rechner "OK". 


Probieren Sie es einmal aus, indem Sie einige BASIC-Zeilen 
schreiben und dann die folgende Befehlsfolge eingeben: 


SAVE "TEST. 1" 8 Programm wird gespeichert 
VERIFY "TEST.1",8 Programm wird überprüft 
Sicher wird der Rechner sich mit "OK" melden, da bei der 


Diskettenspeicherung sehr selten Fehler auftreten. 


1.2.4 SAVE"@:..." - überschreiben von Programmen 


Versuchen Sie jetzt einmal, Ihr kleines Testprogramm nochmals 
auf der Diskette zu speichern. Beim zweiten Mal meldet der 
Computer einen "FILE EXISTS"-Fehler und führt den Befehl 
nicht aus. Das Betriebssystem der Floppy VC-1541 läßt nicht 


zu, daß zwei Programme unter gleichem Namen abgespeichert 
werden. Dies ist auch logisch, denn wie sollte der Computer 
sonst beim Ladevorgang erkennen, welches Programm von zwei 
identischen Sie haben möchten. 

Nun kann es aber vorkommen, daß Sie ein bereits auf Diskette 
abgelegtes Programm laden, ändern und wieder abspeichern 
möchten. Um dies zu realisieren gibt es drei Mögichkeiten: 


1. Sie Speichern das Programm unter einem anderen Namen ab 


2. Sie Löschen zuerst das alte Programm auf der Diskette und 
speichern dann das Neue unter dem alten Namen ab 


3. Sie verwenden den Zusatz "as" vor dem Filenamen im 
SAVE-Befehl 


Dieses Zeichen nennt man "Klammeraffe". Es wird sehr oft in 
der Datenverarbeitung benutzt. Dieses Zeichen und einen 
Doppelpunkt setzen Sie vor dem Filenamen. Das könnte dann 
z.B. so aussehen: 


SAVE "Gk TEST",8 


Vergessen Sie, dieses Zeichen anzugeben, so bringt das 
Laufwerk die Fehlermeldung "FILE EXISTS", die Sie dann wie im 
Abschnitt 1.3.3 beschrieben, auslesen können. 

Das neue Programm darf den restlichen Speicherplatz der 
Diskette nicht überschreiten. Wenn Sie verfolgen, wie das DOS 
das überschreiben durchführt, werden Sie den Grund dafür 
erkennen: 


1. Einen freien Block als ersten Datenblock des neuen 
Programms bestimmen und dessen Adresse im Directory-Eintrag 
des alten Files speichern. : 


2. Das neue Programm in einen freien Bereich der Diskette 
speichern. 


3. Die Adresse des neuen Files in die Adresse des alten Files 
übernehmen. 


4. Die vom alten File belegten Blöcke als frei kennzeichen. 


Da vor dem Freigeben der vom alten File belegten Blöcke das 
neue File in die freien Blöcke der Diskette gespeichert wird, 
darf das neue File nicht die freie Diskettenkapazität 
überschreiten. Sollte jedoch das neue Programm den freien 
Diskettenspeicher überschreiten, wird der Speichervorgang 
abgebrochen. 


1.2.5 Laden von Maschinenprogrammen 


Maschinenprogramme bestehen aus elementaren Befehlen des 
Prozessors. Sie benötigen den BASIC-Interpreter nicht und 


wer den auch nicht als BASIC-Programm geladen. Ein 
Maschinenprogramm wird über die Sekundäradresse 1 zum Rechner 
übertragen und "absolut" geladen, d.h. ab der in den ersten 
beiden Bytes des Diskettenfiles enthaltenen Adresse. Ein 
Beispiel: Der Befehl 


LOAD "PROFI-MON 64" ,8,1 


lädt den Maschinensprache-Monitor absolut. Da dieser Monitor 
die dezimale Anfangsadresse 49152 hat, wird er anschließend 
mit dem Befehl "SYS 49152" gestartet. Sollten Sie ein 
Maschinenprogramm ohne die Sekundäradresse, d.h. wie ein 
BASIC-Programm laden, so erscheint bei einem anschließendem 
RUN die Fehlermeldung "SYNTAX ERROR IN ....". Mit dem Befehl 


"LIST" erscheint dann das Maschinenprogramm als 
BASIC-Listing, daß natürlich überhaupt keinen Sinn ergibt. 
Ein Nachteil ist, daß ein BASIC-Progr amm von einem 


Maschinenprogramm anhand der Directory nicht zu unterscheiden 
ist. Beide werden mit dem Filetyp "PRG" gekennzeichnet. Wenn 
Sie ein Programm auf der Diskette nicht spezifizieren können, 
so laden Sie es zuerst mit dem Befehl ‘LOAD "programm" Β΄. 
Sollte nach einem anschließendem ‘RUN’ die Meldung ‘SYNTAX 
ERROR IN .... erscheinen und das anschließend aufgelistete 
Programm nicht als BASIC-Programm zu identifizieren sein, so 
handelt es sich um ein Maschinenprogramm. Dieses muß dann mit 
"LOAD "programm",8,1' geladen werden. Es kann dan aber nicht 
mit RUN’ gestartet werden!. Sie müssen erst die 
Anfangsadresse dieses Programm ermitteln. Dazu können Sie das 
in diesem Buch enthaltene Programm zur Auflistung aller 
Fileparameter benutzen. Diese Anfangsadresse ist dann in den 
meisten Fällen die Startadresse des Programms, das Sie dann 
mit 'SYS startadresse' aufrufen. Sie können aber auch die 
Anfangsadresse mit folgender Befehlsfolge ermitteln: 


10 OPEN 1,8,2,"programmname,S,R" 
20 GET#1,X$: IF X$=""THEN X$-CHR$ (O) 
30 LB=ASC X$) 

40 GET#1,X#:IF X$-""THEN X$-CHR$ (O) 
50 HB=ASC (X$) 

6O CLOSE 1 

70 ñAD=HB#*#256+LB 

80 PRINT"ANFANGSADRESSE: "; AD 


Das Programm zeigt dann die Adresse nach Eingabe von ‘RUN’ 
auf dem Bildschirm an. Hier wird also das Programm als 
sequentielle Eingabedatei eröffnet. Da die ersten beiden 
Bytes die Anfangsadresse bilden, wird diese mit den beiden 
GET-Befehlen ausgelesen und entsprechend aufbereitet. Das 
erste Byte ist das High-Byte und das zweite das Low-Byte der 
2-Byte Adresse. Falls Ihnen die Funktion dieser  Befehlsfolge 
unklar ist: Im nächsten Abschnitt wird die Behandlung von 
sequentiellen Dateien eingehend erklärt. 


1.2.6 Speichern von Machinenprogrammen 


Maschinenprogramme werden meistens mit einem 
Maschinensprache-Monitor oder einem Assembler geschrieben und 
auch von diesen Programmen heraus abgespeichert. 


Maschinenprogramme können aber auch mit BASIC geschrieben 
werden, indem die einzelnen Bytes des Programm mit ihrem 
dezimalen Wert in DATA-Zeilen abgelegt werden. Ein in BASIC 
mit Hilfe von DATA-Zeilen  geschriebenes Maschinenprogramm 
hätte folgendes Aussehen: 


10 AA = anfangsadresse 

20 EA = endadresse 

30 FOR I=AA TO EA 

40 READ X 

50 PDKE I,PEEK(X) 

60 NEXT I 

80 DATA ....... ren 
9Ο DATA „sonne an S sS a 8 s se nn s aa a aca Sual “s 


Es muß in diesem Beispiel noch die dezimale Anfangsadresse in 
Zeile 10 und die Endadresse in Zeile 20 eingesetzt werden. 
Die dezimalen Werte der einzelnen Bytes des 
Maschinenprogramms werden jeweils durch Komma getrennt in den 
DATA-Zeilen angegeben. 


Natürlich können Sie auch als einfachsten Weg 
Maschinenprogramme, wie sie z.B. auch in diesem Buch und in 
den anderen DATA BECKER BUCHERN in reichlicher Form finden, 
in Form des BASIC-Ladeprogramms abspeichern. Allerdings muß 
dann jeweils vor der Nutzung der entsprechenden Routine diese 
erst durch Lesen und Ausführen der DATA-Zeilen erzeugt 
werden, ein etwas umständlicher und zeitraubender Weg. 
Wesentlich eleganter und zeitsparender ist die Abspeicherung 
eines in DATA-Zeilen enthaltenen Maschinenprogramms in Form 
echter Maschinenbefehle, da ein solches "echtes" 
Maschinenprogramm nach dem Laden ohne umständliches Umsetzen 
sofort ausgeführt werden kann. 

Um ein derartig gespeichertes Programm als Maschinenprogramm 
auf Diskette abzulegen wird eine Befehlsfolge benutzt, die 
etwa so aussieht: 


10 AA = anfangsadresse 

20 EA = endadresse 

30 DPEN 1,8,1,"programmname" 
40 HB=INT (AA/256) :LB=AA-HB#256 
SO PRINT#1,CHR# (LB) ; CHR$ (HB) ; 
60 FOR I = AA TO EA 

70 PRINT#1 ,CHR# (PEEK (1)); 

80 NEXT I 

90 CLOSE 1 


Diese Routine setzt voraus, daß das Maschinenprogramm bereits 
im Speicher des Rechners mit der vorher beschriebenen Routine 
abgelegt ist. Soll ein in DATA-Zeilen enthaltenes 
Maschinenprogramm auf Diskette gespeichert werden, so muß 


folgende Routine benutzt werden: 


10 AA = anfangsadresse 

20 EA = endadresse 

30 OPEN 1,8,1,"programmname" 
40 HB=INT (AA/256) :LB=AA-HB#25%6 
SO PRINT#,CHR$ (LB) ; CHR$ (HB); 
60 FOR I = AA TO EA 


70 READ X 

80 PRINT#1,CHR$(X); 

90 NEXT I 

100 CLOSE 1 

110 DATA ..... EEE NC A Cee ο ο ee E FIIR 

120 DATA ............. nenne nen nn nn rer 
Auch hier müssen noch die Adressen und die DATA-Zeilen 
eingesetzt werden. Das derartig gespeicherte "echte" 
Maschinenprogramm wird dann mit dem Befehl "LOAD 
"programmname",8,1" eingesetzt, der dann das 
Maschinenprogramm von der Diskette lädt. Anschließend wird 
dieses Programm mit "Sys (anfangsadresse) ΄ gestartet. 


Maschinenprogramme können auch von einem BASIC-Ladeprogramm 
geladen und gestartet werden. So ein Ladeprogramm könnte die 
folgende Form haben: 


10 IF A-O THEN A=1:LOAD"programmname" ,8,1 
20 SYS (anfangsadresse) 


Der IF-Befehl in Zeile 10 verwirrt zunächst. Er muß mit 
einbezogen werden, weil nach dem Laden eines Programmes immer 
wieder in Zeile 10 gestartet wird. Wendet man die 
Befehlsfolge 


10 LOAD"programmname",8,1 
20 SYS (anfangsadresse) 


an, so würde immer wieder geladen und der SYS nie erreicht. 
Wird aber die Variable A auf eins gesetzt, so verzweigt das 
Programm nach dem erneuten Ablauf von Zeile 10 nach Zeile 20. 
Dieses Ladeprogr amm wird dann zusammen mit dem 
Maschinenprogramm auf der Diskette abgelegt. Zum Starten des 
Maschinenprogramms geben Sie nur die Befehle 


LOAD"ladeprogramm",8 
RUN 


ein. Dies hat den Vorteil, daß die Anfangsadresse des 
Maschinenprogramms nicht zum Starten benötigt wird, weil das 
Ladeprogramm den SYS beinhaltet. 


1.3 Die Floppy-Systembefehle 


Wie schon erwähnt, ist die Floppy WVC-1541 ähnlich den 
Peripheriegeräten großen CBM Floppys CBM 4040, 8050 und 8250 
ein intelligentes Peripheriegerät mit einem eigenem Prozessor 
und einem eigenem Betriebssystem. Dieses eigene 
Betriebssystem, das DOS (Disk Operating System) belegt 
keinen Platz im Speicher Ihres VC-20 oder COMMODORE 4 
und bietet trotzdem eine Reihe sehr leistungsfähiger Befehle, 
die den Befehlssatz Ihres COMMODORE Computers wesentlich 
erweitern. Eine weitere Besonderheit neben der 
Speicherplatzersparnis (bei fast allen anderen Computern wird 
das DOS in den Hauptspeicher geladen und belegt dort 
wertvollen Platz) ist die Tatsache, daß die Befehle des 
Floppy DOS von der Floppy völlig selbstständig ausgeführt 
werden, ohne daß Ihr Computer hiermit belastet wird. Da diese 
Befehle aber nicht im Befehlssatz Ihres VC-20 oder COMMODORE 
64 enthalten sind, müssen sie auf eine besondere Art und 
Weise zur Floppy übertragen werden. Dort rufen diese Befehle 
dann entsprechende Unterprogramme auf, die die gewünschte 
Aufgabe durchführen. 


1.3.1 Die Befehlsübermittlung zur Floppy-Station 


Sämtliche Befehle, die an die Floppy-Station (an das DOS) 
gerichtet sind, werden über einen "Kanal" gesendet. Dieser 
Kanal ist der Kanal Nummer 15. Die Datenübertragung über 
diesen Kanal erfolgt folgendermaßen: 


- öffnen des Kanals (OPEN) 
- Datenübertragung (PRINT) 
- Schließen des Kanals (CLOSE) 


Im OPEN-Befehl muß neben der Kanalnummer noch die Nummer des 
Gerätes, zu dem die Daten gesendet werden sollen und die 
logische Fielnummer enthalten sein. Beachten Sie nun die 
Syntax des OPEN-Befehls zur übertragung von 
Floppy-Systembefehlen: 


OPEN #1fn,8,15,"befehl" 


Die 8 in dem Befehl adressiert die Adresse der Floppy-Station 


und der Befehlskanal ist 15. Der Parameter ‘lfn’ ist die 
logische Filenummer des OPEN-Befehls, die benötigt wird, um 
die übertragungsbefehle (PRINT#, INPUT#,GET#) den 


OPEN-Befehlen zuzuordnen. Sie ist frei wählbar (1-127). Der 
Floppy-Systembefehl kann entweder direkt dem OPEN-Befehl 
folgen, oder aber mit einem PRINT-Befehl nach dem Eröffnen 
übermittelt werden. Bis zum Schließen dieses Kanals kann eine 
beliebige Anzahl Systembefehle übertragen werden, die sich 
natürlich auf die im OPEN-Befehl angegenbene logische 
Filenummer beziehen müssen. 


1.3.2 NEW - Formatieren von Disketten 
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Der Befehl zum Formatieren lautet "NEW" und kann wie jeder 
andere Befehl durch sein erstes Zeichen (N) abgekürzt werden. 
Wie bereits erwähnt, kann der Befehl im OPEN-Befehl oder 
nachfolgend in einem PRINT-Befehl angegeben werden. Der 
NEW-Befehl hat folgendes Format: 


NEW: diskettename,id 


Der Diskettename umfasst maximal 16 Zeichen und ist im Kopf 
des Directorys enthalten. Das  Identifizierungsmerkmal (ID) 
der Diskette besteht aus zwei beliebige Zeichen, an der das 
DOS erkennt, ob eine andere Diskette eingelegt wurde. Da Sie 
dieses Idenfikationsmerkmal frei wählen können, bietet es 
sich gut für die Unterscheidung sonst völlig identischer 
Disketten an, oder aber für eine allgemeine Klassifizierung 
Ihrer Disketten. Wer nicht mehr als 99 Disketten hat, kann 
seine Disketten sehr schön an Hand des 
Identifikationsmerkmals ordnen. 

Nun aber ein Beispiel zum Formatieren einer Diskette: 


OPEN 1,8,15, "NEW: TESTDIKETTE,KL" 


Geben Sie diesen Befehl nun einmal ein, nachdem Sie eine 
"rohe" Diskette eingelegt haben. Sie werden feststellen, daß 
das Laufwerk nun mit dem Formatieren beginnt. Dieser Vorgang 
dauert ca. 80 Sekunden. Da das Laufwerk mit seinem eigenen 
Frozessor formatiert und den Prozessor des Rechners nicht 
benötigt, kann während dem Vorgang weiter mit dem Rechner 
gearbeitet werden. Der Befehl kann aber auch abgekürzt 
werden: 


OPEN 1,8,15, "N: TESTDISKETTE,KL" 


Soll der Befehl mit einem PRINT übermittelt werden, so muß 
folgende Befehlsfolge eingegeben werden: 


OPEN 1,8,15 zum Offnen des Kanals 
FRINT#1,"N: TESTDISKETTE,KL" 


Die Nummer 1 des PRINT-Befehls bezieht sich auf die logische 
Filenummer des  OPEN-Befehls. Ist der Befehl dem ersten 
Beispiel entsprechend abgesetzt worden, so können mit dem 
FRINT-Befehl weitere Befehle über diesen Kanal übermittelt 
werden.Sollen keine weiteren Befehle übermittelt werden, so 
muß der Kanal geschlossen werden. Das geschieht mit dem 
CLOSE-Befehl. Geben Sie nun nach dem Formatieren folgenden 
Befehl ein: 


CLOSE 1 
Nun ist der Befehlskanal geschlossen. Die 1 bezieht sich 


wieder auf die logische Filenummer des entsprechenden 
OPEN-Befehls. 
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1.3.3 Auslesen des Fehlerkanals 


Wie Ihnen sicher bekannt ist, gibt der Rechner bei nicht 
ordnungsgemäßer Programmierung Fehlermeldungen aus. Da die 
Diskettenbefehle aber nicht von dem Prozessor des Rechners, 
sondern von dem des Laufwerks überprüft und ausgeführt 
werden, kann der Rechner die Fehlermeldungen des Laufwerks 
nicht anzeigen. Fehlermeldungen werden vom Anwender an der 
aufblinkenden roten Leuchtdiode am Laufwerk erkannt. Um 
jedoch festzustellen, welcher Fehler aufgetreten ist, muß der 
Rechner den Kanal 15, über dem die Fehler übermittelt werden, 
auslesen. Dazu muß der Kanal 15 vom Rechner geöffnet werden, 
falls dies nicht bereits geschehen ist. Danach wird mit dem 
INPUT-Befehl die Fehlermeldung ausgelesen. Sie besteht aus 4 
Feldern: 


1. Feld: Nummer des Fehlers (numerisch) 

2. Feld: Bezeichnung des Fehlers (alphabetisch) 
3. Feld: Spur (numerisch) 

4. Feld: Sektor (numerisch) 


Die Spur- und Sektorangabe bezeichnet, wo der Fehler 
lokalisiert wurde. Diese vier Felder der Fehlermeldung müssen 
in 4 Variable eingelesen werden, wobei die 2. Variable eine 
Stringvariable sein muß. Dem INPUT-Befehl müssen dannn also 4 


Variablen folgen. Ein Beispiel zur Auslesung des 
Fehlerkanals: 
DPEN 1,8,15 (falls noch nicht erfolgt) 
INPUT#1,FN,FB$,SP,SE 
CLOSE 1 


Da der INPUT-Befehl aber nicht direkt eingegeben werden kann, 
muß der Fehler innerhalb eines Programms ausgelesen werden. 
D.h. die oben genannte Befehlfolge muß mit Zeilennummern 
versehen und dann mit RUN gestartet werden. Das sieht dann 
z.B. so aus: 


10 OPEN 1,8,15 
20 INPUT#1,FN,FB$,SP,SE 


30 PRINT FN;FB$;SP;SE (zur Anzeige auf dem 
Bildschirm) 
40 CLOSE 1 
Um die Wirkungsweise dieses Programms zu erkennen, 


verursachen Sie bitte folgenden Fehler: 


DPEN 1,8,15,"NEW TESTDISKETTE,T1" 
CLOSE1 


Wenn Sie diese Befehlsfolge eingegeben haben, blinkt die rote 
Leuchtdiode an dem Floppy-Laufwerk. Haben Sie den Fehler 
erkannt”? Es fehlt der Doppelpunkt nach dem Befehl "NEW". 
Geben Sie nun die Befehlsfolge zum Auslesen des Fehlerkanals 
ein und starten mit RUN. Auf dem Bildschirm erscheint dann 
die Meldung: 
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34 SYNTAX ERROR O O 


Die 34 ist die Nummer des Fehlers, dessen Klartext dann 
folgt. Das Feld Spur und Sektor ist O, weil dieser Fehler 
diese Angaben nicht benötigt. 

Sollte ohne daß ein Fehler aufgetreten ist, der Fehlerkanal 
ausgelesen werden, so wird die Meldung 


O OK O O 


ausqegeben. 

Falls während der Arbeit mit der Floppy-Station die rote 
Leuchtdiode blinken sollte, so überprüfen Sie erst Ihren 
Befehl, denn meistens ist der Fehler wie beim o.g. Beispiel 
leicht zu erkennen. Andernfalls lesen Sie einfach den 
Fehlerkanal aus. Eine detailierte Beschreibung aller 
Fehlermeldungen und ihrer Ursachen erfolgt im Abschnitt 1.6. 


1.3.4 LOAD "$",8 — Laden des Directory 


Das Directory ist das Inhaltsverzeichnis der Diskette. Hier 
sind alle Files (Programme und Dateien) der Diskette 
katalogisiert. Beachten Sie unbedingt, daß das Laden der 
Directory den Verlust eines eventuell vorher im Speicher 
befindlichen Programms zur Folge hat. Das Directory wird mit 


LOAD "$",8 


geladen und kann dann mit dem LIST-Befehl aufgelistet werden. 
Probieren Sie es nun einmal mit der dem Laufwerk beigefügten 
Test/Demo-Diskette aus. Legen Sie diese Diskette in das 
Laufwerk und geben Sie den o.g. Befehl zum Laden der 
Directory ein. Danach listen Sie mit dem Befehl LIST das 


Directorry auf. Es erscheint dann wie folgt auf dem 
Bildschirm: (Bitte beachten Sie, daß nicht alle VC-1541 mit 
der derselben Test/Demo-Diskette geliefert werden, da 


COMMODORE auch hier manchmal nicht angekündigte Änderungen 
vornimmt). 


15 "how to use" prg 
9 "how part two" prg 
4 "vic-20 wedge" prg 
1 "c—64 wedge" prg 
4 "dos 5.1" prg 
11 "copy/all" prg 
4 "disk addr change" prg 
4 "dir" prg 
6 "view bam" prg 
4 "check disk" prg 
14 "display t&s" prg 
9 "performance test" prg 
5 "sequential file" prg 
13 "random fial" prg 
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Diesem Directory sind viele Informationen zu entnehmen. Sehen 
wir uns die 1. Zeile, den Kopf des Directory, einmal an. Das 
Zeichen ʻO’ in dieser Zeile hat keine besondere Bedeutung. 
Daneben ist der Name und die ID der Diskette angegeben, wie 
es bei der Formatierung vereinbart wurde. Die Zeichen ‘2A’ 
symbolisieren das Diskettenformat. Ist dieses Format nicht 
2A’, so ist diese Diskette auch nicht auf dieser Art 
Laufwerk formatiert worden und auch nicht lauffähig. 

Nun folgen die einzelnen Files mit Ihrer Blocklänge am Anfang 
und dem Filetyp am Ende der Zeile. Auf dieser Diskette 
erkennen Sie 3 verschiedene Filetypen die im Folgenden 
erklärt werden. Auf die restlichen Filetypen wird später noch 
eingegangen. 


PRG Dies sind PROGRAM-FILES, d.h. Programme in 
BASIC oder Maschinensprache 


SEQ So werden sequentielle Dateien gekennzeich- 
net, die spater beschrieben werden 


REL Dies ist eine andere Form der Datenspei- 
cherung, die ebenfalls später beschrieben 
wird. 


Die Länge der Files ist in Blöcken angegeben, von denen jeder 
256 Bytes umfasst.So kann man leicht die Größe eines 
Programms ermitteln. Man muß lediglich von den 254 Bytes 
eines jeden Blocks 2 Bytes abrechnen, die zur Verkettung der 
einzelnen Blocks benötigt werden. 

Am Ende des Directory ist dann noch die Anzahl der noch 
freien Blöcke der Diskette ersichtlich. Wenn Sie die Länge 
der Files aufaddieren und die freien Blöcke hinzuzählen, so 
resultiert daraus die Gesamtzahl der belegbaren Blöcke auf 
einer Diskette (664). 

Wenn Sie einen Drucker besitzen, so kann dieses Directory wie 
ein Programmlisting ausgedruckt werden. Dazu verwenden Sie 
folgende Befehlsfolge: 


OPEN 1,4 öffnen des Druckers 

CMD i die Bildschirmausgabe wird auf 
dem Drucker gelenkt 

LIST das Directory wird auf dem 
Drucker ausgegeben 

PRINT#1 ein RETURN wird zum Drucker ge- 
sendet 

CLOSE 1 der Drucker wird wieder ge- 
schlossen 


Voraussetzung für den Ausdruck mit dieser Befehlsfolge ist 
natürlich, daß das Directory mit “LOAD "$",8' geladen wurde. 
Sollte sich im Speicher ein BASIC-Programm befinden, so kann 
ebenfalls mit dieser Routine das Programm ausgedruckt werden. 
Durch Einsatz des Jokers können Sie bewirken, daß nicht stets 
das gesamte Directory geladen wird, sondern nur der Teil, der 
Sie interessiert, z.B. alle Programme. Näheres hierzu in 
Kapitel 1.3.10 
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1.3.5 SCRATCH - Löschen von Files 


Natürlich muß die Möglichkeit bestehen, nicht mehr benötigte 
Files zu löschen. Dazu ist der Befehl "SCRATCH’ vorgesehen. 
Bevor dieser Befehl angewandt wird, sollte man sich stets 
überzeugen, daß der im Scratch-Befehl angegebene Name auch 
mit dem des zu löschenden Files übereinstimmt. Ein 
unabsichtlich gelöschtes File kann die Arbeit von  mehrerern 
Stunden oder sogar Tagen zunichte machen. 

Zum Löschen eines Files muß das folgende Format des Befehls 
beachtet werden: 


FRINT#1fn,"SCRATCH: filenamel, filename2,...." 


Es können also auch mehrere Files mit einem Befehl gelöscht 
werden. Wichtig ist die Tatsache, daß dem Floppy-Befehlskanal 
innerhalb der Anführungszeichen nicht mehr als 40 Zeichen mit 
einem PRINT-Befehl übermittelt werden können! 

Um z.B. ein File mit dem Namen ‘TEST’ zu löschen, werden 
folgende Befehle eingegeben: 


OPEN 1,8,15,"S: TEST" 
CLOSE 1 


Sollte der Kanal 15 bereits geöffnet sein, so genügt ein 
FRINT-Befehl: 


PRINTH1,"S:TEST" 
Es besteht die Möglichkeit, den Inhalt der gesamten Diskette 
zu löschen. Dazu wird der im Abschnitt 1.3.10 umschriebene 
"JOKER" (das Zeichen '*') verwendet: 

PRINT#1,"S:%#" 
Auch hier ist besondere Vorsicht geboten! überzeugen Sie 
sich, ob wirklich alle Files gelöscht werden sollen. Dem 
Fehlerkanal wird die Meldung 

01 FILES SCRATCHED nn OO 
übergeben. ‘nn’ ist die Anzahl der geldschten Files. Diese 


Meldung kann mit der im Abschnitt 1.3.3 angegebenen Routine 
ausgelesen werden. 


1.5.6 RENAME - Umbenennen von Files 

Um Files einen anderen Namen zu geben wird der Filename im 
Fileeintrag der Directory geändert. Der Befehl ‘RENAME’ ist 
dafür zuständig. Er hat das folgende Forma: 


RENAME:neuer name = alter name 


Wenn z.B. das File mit dem Namen "TEST" umbenannt werden soll 
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in "TEST.O1", so verwenden Sie die Befehle 


OPEN 1,8,15,"R: TEST.O1-TEST" 
CLOSE 1 


oder 


OPEN 1,8,15 
PRINT#1 , "R: TEST. O1- TEST" 
CLOSE 1 


Ein File, das eröffnet, aber noch nicht abgeschlossen wurde, 
kann nicht umbenannt werden! 


1.3.7 COPY - Kopieren von Files 


Mit diesem Befehl kann ein File innerhalb einer Diskette 
kopiert werden. Aus mehreren sequentiellen Files kann ein 
neues File gebildet werden. Wenn Sie z.B. jeden Monat eine 
sequentielle Datei der Ausgaben in Ihrem Haushalt erstellt 
haben und diese mit den Namen  AUSG.O1, AUSG. o2 USW. 
gekennzeichnet sind, so kann mit einem Befehl eine Datei der 
Ausgaben im ersten Quartal (z.B. AUSG.01) des Jahres gebildet 
werden. Da der Befehl das Format 


COPY:neufile-altfilel,altfile2..... 


hat, kann die Zusammensetzung der  genanten Dateien mit 
folgenden Befehlen erfolgen: 


OPEN1,8,15,"C: AUSG. @1=AUSG. 01 , AUSG. 02, AUSG. O3" 
CLOSE 1 


Diese Methode des Mischens von Dateien kann bei Programmen 
nicht angewendet werden. Hier kann nur ein Programm innerhalb 
der Diskette kopiert werden. Der Name des neuen Files darf 
nicht schon auf der Diskette enthalten sein. 

Dieser COPY-Befehl findet selten Anwendung. Der Grund dafür 
ist, daß das Kopieren eines Files auf dieselbe Diskette 
eigentlich keinen Sinn hat. Die einzige sinnvolle Anwendung 
dieses Befehls ist, mehrere sequentielle oder  User-Files zu 
einem Gesamtfile zu verbinden. 

Durchaus sinnvoll ist dagegen das Kopieren eines Files von 
einer Diskette auf die andere. Zur optimalen Datensicherung 
ist dies unerläßlich. Besitzen Sie zwei Laufwerke, so können 
Sie, vorausgesetzt eine der beiden hat die Geräteadresse 9, 
mit dem Programm COPY/ALL Files von dem einen auf dem anderen 
Laufwerk kopieren. Dieses Programm befindet sich auf der 
TEST/DEMO-Diskette. 

Wir haben aber auch an diejenigen gedacht, die nur ein 
Laufwerk besitzen. Dieser Kreis der Anwender kann mit den in 
Kapitel 4.1 enthaltenen Dienstprogrammen einzelne Files, ja 
sogar die gesamte Diskette kopieren. 
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1.3.8 INITIALIZE — Initialisieren der Diskette 


Das DOS benötigt im Diskettenspeicher immer die aktuelle BAM 
der im Laufwerk befindlichen Diskette. Die BAM ist der 
Blockbelegungsplan einer Diskette. Sie kennzeichnet jeden 
Block als frei oder belegt und wird bei jedem Befehl, der 
Blöcke belegt oder freigibt aktualisiert. Wenn nun die 
Diskette gewechselt wird, so erkennt das DOS diesen Vorgang 
an der unterschiedlichen ID der Diskette. Sollte nun die neue 
Diskette die gleiche ID haben wie die vorher im Laufwerk 
befindliche Diskette, so nimmt das DOS den Diskettenwechsel 
nicht war. Die noch im Speicher befindliche BAM der ersten 
Diskette ist dann nicht mehr identisch mit der BAM der 
nächsten Diskette. Befehle, die nicht vor Ausführung die BAM 
in den Speicher lesen (z.B. alle Direktzugriffs-Befehle) 
benutzen die im Diskettenspeicher befindliche (falsche!) BAM 
zur Lokalisierung der belegten bzw. nicht belegten Blöcke. 


Deshalb sollte beim Formatieren der Diskette die ID immer 
unterschiedlich sein. Es ist also nicht sinnvoll jeder 
Diskette die gleiche ID zu geben. Mit dem Befehl ‘INITIALIZE’ 
kann die BAM "von Hand" in den Diskettenspeicher übertragen 
werden. Dieser Befehl hat folgendes Format: 

FRINT#1fn, "INITIALIZE" 
oder abgekürzt 

PRINT #lfn, "I" 


Beispiel: 


OPEN 1,8,15,"I" 


CLOSE 1 
Sollten Sie also für sich selbst oder für andere Programme 
erstellen, die Datenspeicherung und Diskettenwechsel 
beinhalten, so empfehlen wir dringend, aus Sicherheitsgr ünden 
in Ihrem Programm nach jedem Di skettenwechsel den 


INITIALIZE-Befehl zu verwenden. 


1.3.9 VALIDATE - "Aufräumen der Diskette 


Der Befehl 'VALIDATE' gibt alle als belegt gekennzeichneten 
Blöcke der Diskette, die nicht einem ordnungsgemäß 
geschlossenen File zuzuordnen sind, wieder frei. Wenn Sie z.B 
ein File mit ’OPEN’ öffnen, Daten übertragen und dieses File 
aber nicht wieder mit ‘CLOSE’ schließen, so wird es beim 
“VALIDATE’ wieder gelöscht. Oder aber Sie arbeiteten mit 
Direkt-Zugriffs-Befehlen auf der Diskette, beschreiben also 
Blöcke oder kennzeichnen sie als belegt. Diese Blöcke sind 
dann keinem File zugeordnet und werden durch diesen Befehl 
wieder freigegeben. 

Der Befehl hat auch noch eine weitere Funktion: Wenn ein File 
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mit "SCRATCH" gelöscht wird, so wird nur der Filetyp im 
ersten Byte des Fileeintrags auf "0" gesetzt. Es erscheint 
somit nicht mehr in der Directory. Wenn Sie nun dieses Byte 
wieder gemäß dem alten Filetyp erneuern, was entweder mit dem 
in diesem Buch enthaltenen DOS-Monitor, oder aber auch mit 
Direkt-Zugriffs-Befehlen durchgeführt wer den kann, so 
regeneriert ein anschließender 'VALIDATE' dieses File. Es ist 
also wieder im alten Zustand auf der Diskette enthalten. 

Der Befehl hat folgendes Format: 


PRINT#]fn, "VALIDATE" 
oder in der Kurzform 
PRINT#1fn,'"V" 
Ein Beispiel: 


OPEN 1,8,15,"V" 

CLOSE 1 
Sollte Sie einmal eine Diskette besitzen, bei der die 
aufaddierten Filelängen in Blöcken nicht plus den angegebenen 
freien Blöcken nicht der Gesamtblockzahl der Diskette (664) 
entspricht, so stellt der VALIDATE-Befehl wieder den alten 
Zustannd her. 
Ein weiteres Beispiel: Wenn Sie ein Programm oder eine Datei 
speichern wollen, daß den freien Diskettenspeicher 
überschreitet, so meldet das DOS den Fehler "DISK FULL". Wenn 
die Diskette auch vorher noch einige freie Blöcke aufwies, so 
ist die Anzahl der freien Blöcke nun Null. Mit dem 
VALIDATE-Befehl werden nun diese, ursprünglich freien Blöcke 
wieder freigegeben. 


1.3.10 7? * - Der "Joker" 


Es gibt zwei Jokerzeichen: Den Stern (*) und das Fragezeichen 
(7). Der Stern an einer bestimmten Stelle des Filenamens 
symbolisiert, daß das erste File auf der Diskette relevant 
ist, das mit den Zeichen vor dem Stern beginnt. Ein Beispiel: 


LOAD "TEST*",8 


Dieser Befehl lädt das erste Programm, dessen ersten vier 
Buchstaben "TEST" beinhalten. Der Befehl 


LOAD "*",8 
lädt das erste Programm der Diskette, da kein Zeichen vor dem 
Stern angegeben ist. Der Stern in einem SCRATCH-Befehl hat 
eine andere Funktion. Hier wird nicht das erste File 


gelöscht, sondern ALLE. Z.B. löscht der Befehl 


OPEN1,8,15,"S: TEST*" 
CLOSE 1 
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alle Files, die mit den Buchstaben "TEST" beginnen. Dies ist 
unbedingt zu beachten! Auch das Laden der Directory kann mit 
dem Stern selektiert erfolgen. Ein beispiel: 


LOAD "$A*",8 


ládt nur das Directory mit den Files, die mit dem Buchstaben 
"A" beginnen. 

Das DOS bietet eine weitere Einsatzmöglichkeit des Sterns, 
die in keiner bisherigen Anleitung zu ersehen ist: Es können 
auch Filetypen selektiert werden, wenn nach dem Stern ein 
Gleichheitszeichen mit anschließendem ersten Buchstaben des 
gewünschten Filetyps angegeben wird. Hier eine übersicht: 


*-S selektiert nur sequentielle Files 
*-P selektiert Frogrammfiles 

*-R selektiert relative Files 

*=U selektiert User-Files 


Geben Sie z.B. 
LOAD "$x-P" 


ein, so werden nur die Programme auf der Diskette in das 
Directory übernommen und anschließend mit 'LIST' ausgegeben. 
Auch können mit dem SCRATCH-Befehl z.B. alle sequentiellen 
Files auf der Diskette mit folgendem Befehl gelöscht werden: 


OPEN 1,8,15,"S:*=5" 
CLOSE 1 


Natürlich kann vor diesem Stern auch noch eine Zeichenfolge 
angegeben werden, sodaß dann nur die sequnetiellen Files 
gelöscht werden, deren Namen mit dieser Zeichenfolge 
beginnen. 


Mit dem Fragezeichen können im Filenamen Buchstaben an 
beliebigen Stellen als "nicht relevant" gekennzeichnet 
werden. Um die Funktion des Fragezeichens zu erläutern, 
folgen nun zwei Beispiele von abgekürzten Filenamen und ihren 
Auswirkungen: 


APP??? - fünfstellige Filenamen, deren erster Buch- 
stabe "A" ist, sind angesprochen 

????TEST - achtstellige Filenamen, deren letzen vier 
Buchstaben "TEST" beinhalten, sind ange- 
sprochen 


Eine Kombination von Stern und Fragezeichen ist erlaubt. 
Jedoch sollte beachtet werden, daß nach dem Stern weder 
Buchstaben, noch Fragezeichen folgen, da diese Kombinationen 
keinen Sinn ergeben. Zwei Beispiele zur Kombination von Stern 
und Fragezeichen: 


7777.% - alle Filenamen, die vor dem Punkt vier Buch- 
staben besitzen, sind angesprochen 
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TEST. ??* 


TEST-??01#=5 


alle mindestens 7-stellige Filenamen, deren 
ersten fünf Zeichen "TEST." beinhalten, sind 
angesprochen. 

alle mindestens 9-stelligen, sequentiellen 
Files, deren Namen in den ersten 5 Stellen 
"TEST-" und in den Stellen 6 bis 7 "O1" ent- 
halten, sind angesprochen 
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1.4 Sequentielle Datenspeicherung 


Ein Diskettenlaufwerk sollte nicht ausschließlich zur 
Programmspeicherung genutzt werden. Spätestens dann, wenn Sie 
eigene Programme schreiben, die eine große Datenmenge zu 
verwalten haben, werden Sie eine schnelle Datenorganisation 
benötigen. Die sequentielle Datenspeicherung ist zwar nicht 
die schnellste, aber die einfachste Methode, Daten zu 
verwalten, was gerade für Anfänger wichtig sein dürfte. Diese 
Datenorganisation ist vergleichbar mit der sequentiellen 
Datenspeicherung auf Kassette, die ebenfalls in dieser 
logischen Reihenfolge in ein Programm integriert wird: 


1. Laden des Programms 
2. Laden der kompletten Daten in den Speicher des Rechners 


3. Verwalten der Daten im Speicher (ändern, löschen, hinzu- 
fügen) 


4. Speichern der aktuellen Daten auf einem externen Spei- 
chermedium (Kassette, Diskette) 


5. Verlassen des Programms 


Es ist selbstverständlich, daß die maximale Datenmenge von 
der Größe des Speichers im Rechner abhängig ist, da ein 
Datensatz in einer sequentiellen Datei nicht direkt auf der 
Diskette oder Kassette geändert oder gelöscht werden kann. 
Dazu muß die gesamte Datei eingelesen, geändert und wieder 
abgespeichert werden. Das Laden und Speichern der Datei 
geschieht bei Einsatz eines Diskettenlaufwerkes wesentlich 
schneller als bei einem Kassettenlaufwerk. Dies ist der erste 
Vorteil der Datenspeicherung mit Diskette. 

Der zweite Vorteil ist, daß zum Anfügen eines Datesatzes an 
eine sequentiellen Diskettendatei nicht die gesamte Datei 
eingelesen werden muß. Hierzu wird die Datei zum Anfügen 
(APPEND) geöffnet. Dies ist bei der Speicherung auf Kassette 
nicht möglich. 

Erwähnenswert ist noch, daß Programme, die bisher Daten 
sequentiell auf Kassette verwalteten, auf einfache Art und 
Weise an Diskettenspeicherung angepasst werden können. Hierzu 
müssen nur die entsprechenden OPEN-Befehle geändert werden. 


1.4.1 Das Prinzip 


Eine sequentielle Datei besteht aus mehreren Datensätzen, die 
wiederum in Felder aufgeteilt sind. Am Beispiel einer 
Adressen-Datei ist dies leicht zu verdeutlichen: Die 
einzelnen Adressen stellen die Datensätze dieser Datei dar. 
Ein Adressen-Satz besteht aus mehreren Felder (Name, Vorname, 
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usw). Die Struktur einer Datei läßt sich etwa so darstellen: 


FELD 1 = FELD 2 =: FELD 3 : FELD 1 : FELD 2 = FELD 3 : ...... 


Die Datensätze einer Datei sind wie die Felder innerhalb 
dieses Datensatzes hintereinander  (sequentiell) angeordnet. 
Die Felder und somit auch die Datensätze dürfen 
unterschiedlich lang sein. So kann z.B. das Feld 1 des 
Datensatzes 1 länger sein als das Feld 1 des Datensatzes 2. 
Dies ist möglich, da die Felder voneinander durch ein Zeichen 
(RETURN) getrennt werden, die von dem FRINT-Befehl erzeugt 
und von dem INPUT-Befehl erkannt werden. Jedem Feld ist eine 
Variable zugeordnet, die mit einem PRINT-Befehl geschrieben 
und mit einem INPUT-Befehl eingelesen wird. Es besteht aber 
auch die Möglichkeit mit einem Befehl einen ganzen Datensatz 
zu lesen oder schreiben. Da setzt aber voraus, das alle 
Datensätze die gleiche Länge haben, da innerhalb des 
Programms diese Datensätze mit Hilfe von speziellen Befehlen 
in Felder zerlegt werden müssen. Dazu muß dem Programm die 
genaue Position jedes Feldes im Datensatz bekannt sein. 

Doch wie erkennt der Rechner beim Einlesen der Daten, wann 
ein Feld bzw. Datensatz beendet ist? Dazu wird hinter jedem 
Feld der Datei ein 'RETURN' gesetzt, das die einzelnen Felder 
voneinander trennt. Dieses ‘RETURN’ hat im ASCII-Code den 
dezimalen Wert 13. Am Beispiel einer Telefon-Datei wird dies 
sichtbar: Unsere Telefon-Datei soll aus 3 Feldern bestehen: 


FELD 1 : NAME 

FELD 2 : VORNAME 

FELD 3 : TELEFONNUMMER 

Schauen wir uns einen Ausschnitt aus dieser bereits 


beschriebenen Datei nun an (das Zeichen ‘+’ symbolisiert ein 
“RETURN '): 


Zeichen: 11111111112222222222333333333344444444445 
12345678901254567890125456789012345678901234567890 


Datei: KUNZE+HANS+236+KURZ+T IM+1213+SCHULZE+UTE+65432+... 


Es ist zu erkennen, daß die Felder ungleich lang sind und 
jeweils durch ein ‘RETURN’ getrennt sind. Dieses ‘RETURN’ 
wird bei der übertragung mit einem PRINT-Befehl jeweils 


hinter den Daten gesetzt, sofern diesem PRINT-Befehl kein 
Semikolon, das ein 'RETURN' unterdrückt, folgt. Mit einem 
INPUT-Befehl werden diese Daten dann in eine Variable 


übernommen und zwar bis zum 'RETURN'. Danach muß ein weiterer 
INPUT-Befehl folgen, um das nächste Feld zu lesen, usw. Die 
folgenden Abschnitte erläutern alles, was zur Erstellung von 
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Programmen mit sequentieller Datenspeicherung erforderlich 
ist. 


1.4.2 Das Eröffnen einer sequentiellen Datei 


Um eine Datei zu erstellen, muß sie vorher geöffnet werden. 
Beim öffnen zum Beschreiben wird Folgendes durchgeführt: 


1. Es wird geprüft, ob auf der Diskette bereits ein File mit 
diesem Namen existiert. Wenn ja, wird die Fehlermeldung 
"FILE EXISTS" ausgegegeben. 


H 


. Der entsprechende Fileeintrag in der Directory wird 
angelegt. Dabei wird im Filetyp gekennzeichnet, daß dieses 
File noch nicht geschlossen ist, was dann in der 
aufgelisteten Directory durch einen Stern vor dem Filetyp 
ersichtlich ist. 


3. Es wird ein ein freier Block gesucht, auf dem die ersten 
Daten gespeichert werden. Die Adresse (Spur und Sektor) 
wird im Fileeintrag gespeichert. 


4. Die Anzahl der Blocks im File wird auf O gesetzt, da noch 
kein Block dieses Files beschrieben ist. 


Nach dem Erstellen der Datei kann diese dann geändert oder 
erweitert werden. Im OPEN-Befehl wird festgelegt, zu welchem 
Zweck die Datei geöffnet werden soll. Das Format des 
OPEN-Befehls sieht folgendermaßen aus: 


OPEN 1fn,8,sa,"filename,filetyp,modus" 


Die logische Filenummer liegt zwischen 1 und 127, wenn nach 
einem PRINT-Befehl auf dieses File nur  'RETURN' gesendet 
werden soll. Dies wird in der Regel der Fall sein. Ist die 
logische Filenummer größer als 127 (128-255), so sendet der 
FRINT-Befehl nach jedem ‘RETURN’ noch einen  'LINE-FEED' 
(Zeilenvorschub). Dies ist zum Beispiel bei Druckern 
notwendig, die nach einem ‘RETURN’ keinen automatischen 
Zeilenvorschub geben. 

Die Sekundäradresse kann einen Wert zwischen 2 und 14 
annehmen und für Ein- und Ausgaben verwendet werden. Sie 
bezeichnet den Kanal des Floppy-Laufwerkes, über den die 
Daten übertragen werden sollen. Die Sekundäradresse O und 1 
ist vom Betriebssystem zum Speichern und Laden von 
Programmmen reserviert. Sekundäradresse 15 ist für den 
Befehls-und Fehlerkanal bestimmt. Sollten mehrere Dateien 
gleichzeitig geöffnet sein, so muß neben der logischen 
Filenummer unbedingt die Sekundäradresse unterschiedlich 
sein, da immer nur ein Kanal für eine Datei zuständig sein 
kann. Wird jedoch eine Datei mit der Sekundäradresse 
geöffnet, mit der vorher bereits eine Datei geöffnet wurde, 
so wird die erste Datei geschlossen. 

Was oft mißachtet wird, ist die Tatsache, daß maximal 3 
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Kanäle mit jeweils einer Datei geöffnet werden können. Zu 
Verwaltung von relativen Dateien benötigt das DOS jedoch 2 
Kanäle gleichzeitig. Demnach sind folgende 
Maximalkombinationen möglich: 


- 1 relative und 1 sequentielle Datei 
- 3 sequentielle Dateien 


Bei der Angabe des Filenamens ist darauf zu achten, daß 
dieser Filename nicht bereits auf der Diskette existiert. 
Soll eine Datei zum Schreiben geöffnet werden, die bereits 
auf der Diskette existiert, so muß wie bei dem Befehl "SAVE ’ 
dem Filenamen der Klammeraffe mit dem anschl ießendemm 
Doppelpunkte vorangestellt werden!. Z.B. 


OPEN 1,8,2," 3: ADRESSEN,S,W" 


Bei der Eröffnung der Datei muß der Filetyp angegeben werden. 
Diese Filetypen werden im OPEN-Befehl wie folgt angekürzt: 


S - sequentielles File 
U — User-File 
F — Programmfile 
R — relatives File 
User-Files sind sequentielle Files, die jedoch in der 


Directory als USR-File ausgewiesen werden. Es sind keine 
Dateien im eigentlichen Sinne. Dieser Filetyp wird gerne 
benutzt, wenn Ausgaben, die normalerweise auf dem Bildschirm 
erfolgen (BASIC-Listing, Directory) zur Floppy "umgeleitet" 
werden. Im Kapitel 1.4.6 finden Sie eine Beschreibung dieser 
Methode. 


Der letzte Parameter (modus) legt fest, wie der  Datenkanal 
genutzt werden soll. Es gibt vier Müglichkeiten: 


W — Schreiben einer Datei (WRITE - Kapitel 1.4.3) 
R — Lesen einer Datei (READ - Kapitel 1.4.4) 
A — verlängern einer sequentiellen Datei 


(APPEND - Kapitel 1.4.4) 

M — Lesen einer nicht geschlossenen Datei 
(wurde von uns im DOS-Listing "entdeckt" und 
wird im Kapitel 1.4.5 erläutert) 


öffnen Sie nun einmal eine sequentielle Datei mit dem Namen 
"SEQU. TEST" zum Schreiben: 


OPEN 1,8,2,"SEQU. TEST,S,W" 
Wenn Sie anschließend mit ‘LOAD "#",8° das Directory laden 
und mit 'LIST' ausgeben, werden Sie feststellen, daß dieses 
File mit einem Stern vor dem Filetypen als geöffnet 


gekennzeichnet ist: 


ο SEQU. TEST *SEQ 


24 


Diese Datei läßt sich nun aber nicht mehr schließen! Bevor 
also nach dem Eröffnen und Beschreiben einer Datei das 
Directory geladen wird, muß unbedingt das File geaschlossen 
werden! 

Wahrend eine Datei geöffnet ist, darf zwar der 
Befehls/Fehlerkanal 15 geöffnet werden, jedoch hat das 
Schließen des Kanals 15 zur Folge, daß alle anderen Files 
auch geschlossen werden. Dies sollten Sie unbedingt 
beachten. 

Nun einige Beispiele zum OPEN-Befehl: 


OPEN 1,8,2,"SEQU. TEST,S,R" - ein sequentielles File wird 
zum Lesen geöffnet 

OPEN 2,8,3,"SEQU.TEST,U,W" - ein User-File wird zum 
schreiben geöffnet 

OPEN 3,8,4,"TEST,P,R" - ein Program-File wird zum 
lesen geöffnet 

OPEN 4,8,5,"SEQU.TEST,S,A" - ein sequentielles File wird 
zum Anfügen von Daten ge- 
öffnet 

OPEN 5,8,6, "KUNDEN. 1983,S,M" - Die Kundendatei wurde nicht 
ordnungsgemäß geschlossen 


und soll gelesen werden. 
1.4.3 Datenübertragung Floppy/Rechner 


Nach dem Eröffnen eines Files zum Schreiben können die darin 
zu speichernden Daten an die Floppy mit dem PRINT-Befehl 
übermittelt werden. Dieser Befehl überträgt zusätzlich ein 
RETURN’, das zum Trennen der Daten benötigt wird. Im 
folgenden Beispiel wird eine Datei eröffnet, beschrieben und 
wieder geschlossen. Da der PRINT-Befehl auch direkt, d.h. 
außerhalb eines Programms eingegeben werden kann, lassen sich 
die entsprechenden Befehle hintereinander absetzen und 
ausführen. Eröffnen Sie nun ein File mit dem Namen "TEST.1": 


OPEN 1,8,2,"TEST.1,5,W" 


Sie werden bemerkt haben, daß die rote Leuchtdiode an dem 
Floppy-Laufwerk aufleuchtet. Sie signalisiert, daß ein File 
geöffnet ist. Die Datei kann nun beschrieben werden. Hier 
wird z.B. ein Datensatz einer Adressendatei, bestehend aus 4 
Feldern erstellt: 


PRINT#1, "HANS" 

PRINT#1, "SCHULTZ" 
PRINT#1,"KASTANIENSTR. 7" 
PRINT#1,"4000 DUSSELDORF" 


Nun sind diese Daten in die Datei aufgenommen worden, und das 
File kann wieder mit “CLOSE 1° geschlossen werden. Die rote 
Leuchtdiode ist gleichzeitig erloschen. Um diese Daten nun 
wieder zu lesen, muß die Datei im Lese-Modus (KR) eröffnet 
werden. Da der INPUT-Befehl zum Einlesen der Daten nicht 
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direkt eingegeben werden kann, muß ein kleines Programm 
geschrieben werden: 


10 OPEN 1,8,2,"TEST.1,5,R" 
20 INPUT#1,VN$ 

το INPUT#1,NN$ 

40 INPUT#1,ST$ 

SO INPUT#1,OR$ 

60 CLOSE 1 

70 PRINT"VORNAME: “";VN$ 
BO PRINT"NAME: "> NN 
90 PRINT"STRASSE:  ";ST$ 
100 PRINT"PLZ/ORT:  "sOR$ 


Das Programm ist einfach zu erklaren: 
Zeile 10 Die Datei "TEST.1" wird zum Lesen geöffnet 


Zeile 20-50 Die Daten werden in der selben Reihenfolge 
eingelesen, in der sie vorher geschrieben 
wurden. Es werden dazu Variablen genutzt, die 
nachher zum Ausgeben der Daten benötigt wer- 
den. 


Zeile 40 Die Datei wird wieder geschlossen. 


Zeile 70-100 Die Daten werden mit entsprechendem Begleit- 
text auf dem Bildschirm ausgegeben. 


Wenn Sie diese Befehlsfolge eingegeben und mit "RUN" 
gestartet haben, erscheinen die Daten, die vorher in die 
Datei geschrieben wurden, nun auf dem Bildschirm: 


VORNAME: HANS 

NAME: SCHULTZ 
STRASSE: KASTANIENSTR. 7 
PLZ/ORT: 4000 DÜSSELDORF 


Zum Einlesen der Daten wurden 4 INPUT-Befehle eingesetzt, da 
eine Adresse aus 4 Feldern besteht. Wenn aber z.B. eine Datei 
gespeichert werden soll, deren Datensätze aus ca. 20 Feldern 
bestehen, so ist es sehr aufwendig, zum Einlesen 20 
INPUT-Befehle ins Program aufzunehmen. Durch Programmieren 
einer Schleife kann dies wesentlich vereinfacht werden. Am 
Beispiel unseres kleinen Programms ist dies ersichtlich: 


10 OPEN 1,8,2,"TEST. 1,S,R" 
20 FOR I-1 TO 4 
30 INPUT#1,D$(I) 


40 NEXT I 

50 CLOSE 1 

60 PRINT"VORNAME:  ";D$(1) 
70 PRINT"NAME: WC (2) 


80 PRINT"STRASSE:  ";D$(3) 
90 PRINT"PLZ/QRT:  ";D$(4) 
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Hier wurden nicht 4 Stringvariablen, sondern eine indizierte 
Variable mit dem Index 1-4 benutzt. Es ist zu beachten, daß 
der Index beim BASIC 2.0 höchstens 10 betragen darf, wenn er 
nicht mit einer DIM-Anweisung höher definiert wurde. Soll in 
unserem Beispiel ein Datensatz mit 20 Felder eingelesen 
werden, so muß vorher die Anweisung ‘DIM D$(20)’ gegeben 
werden. 


Es gibt noch eine weitere Möglichkeit der verkürzten Ein- und 
Ausgabe von Daten: Mit dem INPUT-Befehl zur Dateneingabe von 
Tastatur können mehrere Variablen, die durch ein Komma 
getrennt sind, eingegeben werden. Z.B: 


INPUT VN$,NN$f,TE 


Bei diesem Befehl müssen drei Variablen z.B. folgendermaßen 
eingegeben werden: 


NORBERT „MüLLER , 7465 
Die eingelesenen Daten werden dann mit 
PRINT VN$,NN$,TE 


wieder auf dem Bildschirm ausgegeben werden. Auf diese Weise 
können auch Daten in eine sequentielle Datei geschrieben und 
auch wieder eingelesen werden. Der einzige Unterschied ist, 
daB beim Schreiben in eine Datei Stringvariablen durch ein in 
Hochkomma eingeschlossenes Komma getrennt werden müssen. Wenn 
z.B. die o.g. Variablen in eine Datei geschrieben werden 
sollen, muß der PRINT-Befehl folgendermaßen geändert werden: 


PRINTS 1,VN£","NN£","TE 


Numerische Varialen werden nur mit dem Komma von anderen 
Variablen getrennt. Zum Einlesen der Daten wird dann der 
Befehl 


INPUT#1 , VN$ ,NN$ , TE 


eingesetzt. Da die maximal einzugebene Zeichenzahl mit einem 
INPUT-Befehl 88 nicht überschreiten darf, ist diese 
Schreibweise nur begrenzt einsatzfähig. Sollte ein Feld in 
einem Datensatz länger als 88 Zeichen sein, so muß ein 
anderer Befehl zum Einlesen benutzt werden. Dies ist der 
GET-Befehl, der jedes Zeichen einzeln einliest. Angenommen 
Sie möchten einen Datensatz lesen, der aus einem Feld mit der 
Länge von 100 Zeichen besteht. Dieser Satz kann dann mit 
folgender Routine in eine Stringvariable übernommen werden: 


10 OPEN 1,8,.......... e. e 
20 D$z"" 

30 FOR I=1 TO 100 

40 GET#1,X# 

50 D$=D$+X$ 

60 NEXT I 
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70 GET41,X$ 
80 CLOSE 1 


Nach Ablauf dieser Befehlsfolge enthält die Stringvariable 
den 100 Zeichen umfassenden Datensatz. Nach dem öffnen einer 
sequentiellen Datei wird vom DOS ein Zeiger eingerichtet, der 
immer auf das Zeichen zeigt, das hinter den bisher  gelesenen 
Daten liegt. Da wir annehmen, dafi der 100-Zeichen umfassende 
Datensatz mit einem PRINT-Befehl ohne abschließendes 
Semikolon in die Datei geschrieben wurde, wurde der Datensatz 
mit einem RETURN abgeschlossen. Nach dem Lesen des 100. 
Zeichens weist der Zeiger auf dieses RETURN. Der nächste 
GET-Befehl in Zeile 70 ist also notwendig, um das ‘RETURN’, 
das sich hinter dem Datensatz befindet, zu lesen. Dadurch 
erhält der erste GET-Befehl zum Lesen des nächsten Satzes 
wieder das erste Zeichen und nicht das 'RETURN'. 


In diesem Beispiel sind wir von einer konstanten 
Datensatzlänge von 100 Zeichen ausgegangen. In der Regel ist 
die Datensatzlänge einer  sequentiellen Datei aber nicht 
konstant. Derartge Dateien müssen also, falls die maximale 
Datensatzlänge die INPUT-Grenze von 88 Zeichen überschreitet, 
mit einer GET-Schleife gelesen werden, die das trennende 
RETURN als Satzende erkennt. Eine derartige Routine sieht 
dann so aus: 


10 OPEN 1,8,.................... 
20 S¢="" 

30 GET#1,X$ 

40 IF X$=CHR$(13)THEN 80 

50 S$=5$+X$ 

60 IF ST<>64 THEN 30 

70 CLOSE1:END 

80 PRINT Sf 

90 GOTO 20 


Hier wird eine Datei mit variabler Satzlänge gelesen und auf 
dem Bildschirm ausgegeben. Anstatt der Ausgabe auf Bildschirm 
können diese Datensätze natürlich auch anders verarbeitet 
werden. 

Wenn Sie diese Probleme, die bei einer Datensatzlänge von 
über 88 Zeichen auftreten, vermeiden wollen, so teilen Sie 
den Datensatz in mehrere Teile auf, die Sie dann nach dem 
Einlesen wieder zusammenfügen. 


1.4.4 Anhängen von Datensätzen 


Stellen Sie sich vor, Sie müßten zum Erweitern einer 
sequentiellen Datei diese komplett in den Hauptspeicher 
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laden, erweitern und wieder in der erweiterten Form 
abspeichern. Es wäre sicher sehr zeitraubend. Aus diesem 
Grunde bietet das DOS eine komfortable Möglichkeit, einer 
sequentieller Datei Daten anzuhängen, ohne die Datei vorher 
einzulesen. Dies ermöglicht der Eröffnungsmodus ‘A’ (APPEND). 
Wenn Sie also eine sequentielle Datei erstellt haben, wie 
z.B. im vorherigem Abschnitt, so können Sie immer wieder 
Daten anhängen, indem Sie im OPEN-Befehl den Modus ‘A’ 
angeben. Ein Beispiel: 


Geben Sie folgende Befehlsfolge ein: 


OPEN 1,8,2,"TEST.2,5,W" 
PRINT#1,"1. DATENSATZ" 
CLOSE1 


Sie haben nun eine sequentielle Datei mit einem Datensatz 
erstellt. Diese Datei soll nun mit folgender Befehlsfolge um 
2 Datensätze erweitert werden: 


OPEN 1,8,2,"TEST.2,5,A" 
PRINT#1,"2. DATENSATZ" 
PRINT#1,"3. DATENSATZ" 
CLOSE1 


Nun enthält die Datei 'TEST.2' 3 Datensätze. Mit dem 
folgenden Programm können Sie dies überprüfen: 


100 OPEN 1,8,2,"TEST.2,5,R" 
110 FOR I=1 TO 3 

120 INPUT#1,DS#$ 

130 PRINTDS$ 

140 CLOSE 1 


Nach dem Starten dieses Programm werden die Datensätze 
ausgelsen und auf dem Bildschirm angezeigt. 

Sie haben erkannt, daß der Modus ‘A’ bei sequentieller 
Datenorganisation eine schnelle Erweiterung der Datei 
ermöglicht. 


1.4.5 Schließen einer sequentiellen Datei 
Mit dem CLOSE-Befehl werden geöffnete Dateien wieder 
geschlossen. Dieser Befehl hat das Format 


CLOSE 1fn 


Der Parameter 'lfn' bezieht sich auf die logische Filenummer 
der Datei, die bei dem entprechendem OPEN-Befehl angegeben 
wurde. Sollen mehrere Dateien abgeschlosssn werden, so muß 
für jede Datei ein CLOSE-Befehl abgesetzt werden. Mit dem 
Schließen der letzten Datei erlischt die rote Leuchtdiode am 
Laufwerk wieder. 

Wie Ihnen bereits bekannt ist, werden die Daten über einen 
Kanal zur Floppy gesendet. Dieser Kanal ist ein 
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floppyinterner Speicher (Puffer genannt), in dem die vom 
Rechner übermittelten Daten zunächst zwischengespeichert 
werden. Erst wenn dieser Puffer gefüllt ist, werden die darin 
befindlichen Daten auf die Diskette geschrieben. 

Beim Schließen der Datei werden die noch im Puffer 
befindlichen Daten auf die Diskette geschrieben. Eine nicht 
geschlossene Datei ist also nicht vollständig, und wird auch 
vom Disketten-Betriebssystem als nicht ordnungsgemäß 
geschlossenees File gekennzeichnet. Das DOS erlaubt nun im 
Modus 'R' (READ) auf diese Datei keinen Lesezugriff mehr und 
meldet "WRITE FILE OPEN”. 

Nun wäre es aber sehr ärgerlich, wenn das DOS keinen 
Lesezugriff auf diese Datei zulassen würde. Aus diesem Grunde 
bietet das DOS den Modus 'M'. Eine in diesem Modus geöffnete 
Datei, die als nicht ordnungsgemäß geschlossene Datei 
gekennzeichnet ist, kann so gelesen werden. Sinnvoll ist es, 
die gelesenen Datesätze in eine zweite Datei zu schreiben und 
diese dann natürlich ordnungsgemäß zu schließen. Auf diese 
Weise kann man Dateien "retten". 

Das folgende Programm bietet die Möglichkeit, eine nicht 
geschlossene Datei (Ursprungsdatei ) in eine korrekt 
geschlossene Datei (Zieldatei) zu übertragen: 


100 INPUT"URSPRUNGSDATEI";U$ 
110 INPUT"ZIELDATEI";Z£ 

120 OPEN 1,8,2,U$+",5,M" 

130 OPEN 2,8,3,Z#+",S,W" 

140 INPUT#1,X$ 

150 PRINT#2,X$ 

160 IF ST<>64 THEN 140 

170 CLOSE 1:CLOSE 2 

180 OPEN 1,8,15,"S:"+U$ 

190 CLOSE 1 


Am Ende des Programms wird dann die nicht mehr benötigte 
Ursprungsdatei gelöscht. 


1.4.6 "Umleiten" der Bildschirmausgabe 


Jede Ausgabe, die auf dem Bildschirm erfolgt  (PRINT,LIST 
usw.) kann als sequentielle Datei auf die Diskette  umleitet 
werden. Dies wird mit dem CMD-Befehl erreicht, der folgendes 
Format hat: 


CMD 1fn 
Dazu muß zuerst ein File eröffnet werden, das zur 
Unterscheidung von sequentiellen Dateien den Filetyp "USR" 


erhält. Soll z.B. das Listing eines BASIC-Programms als 
sequentielles File auf Diskette gespeichert werden, so dient 
dazu die folgende Befehlsfolge: 


OPEN 1,8,2,"TEST.LIST,U,W" 
CMD 1 
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LIST 
CLOSE 1 


Der Befehl 'CLOSE 1° bewirkt gleichzeitig, daß die weitere 
Ausgabe wieder auf dem Bildschirm erfolgt. 

Das Speichern von Programmen als sequentielle Dateien auf 
Diskette ist z.B. sehr nützlich, wenn man ein Programmlisting 
mit einer Textverarbeitung lesen möchte, um es in Text mit 
einzubauen. Voraussetzung ist, daß die entsprechende 
Textverarbeitung in der Lage ist, in ASCII-Code gespeicherte 
Dateien zu lesen. 

So sind übrigens die Listings in diesem Buch vom Commodore 64 
der Textverarbeitung SUPERSCRIPT auf einem Commodore 8032 
übergeben worden. 

Um dieses File nun wieder auf dem Bildschirm auszugeben, 
benötigen Sie die folgende Routine: 


10 OPEN 1,8,2,"TEST.LIST,U,R" 
20 GET$1,X$ 

30 PRINT X$; 

40 IF ST«»64 THEN 20 

5ο CLOSE 1 


Diese Routine ist eine Schleife, die jedes Zeichen (Byte) des 
Files liest und auf dem Bildschirm ausgibt. Das Ende des File 
wird an der Statusvariablen ST erkannt, die bei Fileende auf 
64 gesetzt wird. Zur Ausgabe des sequentiellen Files ist 
folgende Befehlsfolge erforderlich: 


10 OPEN 1,8,2,"TEST.LIST,U,R" 
20 OPEN 2,4 

30 GET#1,X$ 

40 PRINT#2,X$ 

50 IF ST<>64 THEN 30 

60 CLOSE 1 


Hier wurde zusätzlich der Drucker geöffnet, der die 
Geräteadresse 4 besitzt. 


1.4.7 Sequentielle Datei als Tabelle im Rechner 


Sequentielle Dateien müssen zur Datenverwaltung komplett im 
Rechner vorhanden sein. Dazu wird meist eine zweidimensionale 
Tabelle benutzt. Diese Tabelle nennt man auch Matrix, da 
durch Angabe von zwei Koordinaten jedes beliebige Feld eines 
Datensatzes adressiert werden kann. Dazu verwendet man eine 
zweifach indizierte Variable, die mit einer DIM-Anweisung 
reserviert werden muß. Der erste Index bezeichnet den 
Datensatz, der zweite Index das Feld innerhalb dieses 
Datensatzes. Das folgende Schaubild zeigt das Beispiel einer 
Tabelle: 
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Feld 1 Feld 2 Feld Š 


pen | maa | mas 
maa | wen | > 
mes | se | s> 
een | me [| men _ 


Diese Tabelle ist eine Datei, die aus ὁ Datensätzen mit je 3 
Feldern besteht. Als Variable wurde D$ benutzt, die mit  'DIM 
D£(5,3)' reseviert wird. Um eine sequentielle Datei als 
Tabelle in den Rechner einzulesen, ist es erforderlich, eine 
solche Datei mit z.B. 6 Datensätzen a’ 3 Feldern zu erzeugen. 
Dazu benutzen Sie das folgende Programm: 


Datensatz 1 


Datensatz 2 


Datensatz 3 


Datensatz 4 


Datensatz 5 


Datensatz 6 


100 OPEN 1,8,2,"TESTFILE.SEQ,S,W" 
110 FOR X-1 TO ὁ 

120 PRINT CHR$(147); 

130 PRINT"DATENSATZ ";X 
140 PRINT"-—---------- " 
150 FOR Y=1 TO 3 

160 PRINT"FELD "sYg"s ns 
170 INPUT X$ 

180 PRINT#1,X$ 

190 NEXT Y 

200 NEXT X 

210 CLOSE 1 


Hier wird eine zweifach veschachtelte Schleife verwendet, mit 
deren Variablen die Datensätze und -felder numeriert werden. 
Geben Sie nun die 6 Datensätze ein. Nach Beendigung dieses 
Programms befinden sich diese & Datensätze als sequentielle 
Datei auf der Diskette. Ein Tip: Speichern Sie dieses 
Programm mit 'SAVE"TEST.INP",8 ab, damit Sie es  jedezeit 
wieder laden können. 

Diese Datei soll nun als Tabelle in den Rechner eingelesen 
werden. Dazu dient ebenfalls eine zweifach veerschachtelte 
Schleife, deren Variablen nun zur Indizierung der 
Tabellenplätze benötigt werden: 


100 OPEN 1,8,2,"TESTFILE.SEQ,S,R" 
110 DIM D$(6,3) 

120 FOR X=1 TO 6 

130 FOR Y-1 TO 3 

140 INPUT&1,D£ (X, Y) 

150 NEXT Y 

160 NEXT X 

180 CLOSE 1 
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Nach dieser Befehlsfolge befinden sich die Daten in der mit 
D$ bezeichneten Tabelle. Mit einem PRINT-Befehl können Sie 
nun überprüfen, ob die Daten an richtiger Stelle gespeichert 
wurden. Da jedes Feld mit den Indizes adressierbar ist, geben 
Sie z.B. "PRINT D$(1,2)° ein, um das 2. Feld des 1. 
Datensatzes auf dem Bildschirm anzuzeigen. Sinnvoll ist es 
nun, die Felder eines ausgewählten Datensatzes anzeigen zu 
lassen. Benutzen Sie dazu die folgende Routine, nachdem Sie 
das vorherige Programm abgespeichert haben: 


100 INPUT"NUMMER DES DATENSATZES: ";X 
120 PRINT"-———————— - " 
130 PRINT"FELD 1: ";D$(X,1) 
140 PRINT"FELD 2: ";D$(X,2) 
150 PRINT"FELD 3: ";D#(X,3) 


Sie haben sicher erkannt, daß der erste Index (die 
Satznummer) nach der Abfrage als Variable in jeder 
Feldausgabe verwendet wird. Der zweite Index (die Feldnummer) 
ist dann jeweils konstant. 

Diese Tabelle kann nun beliebig geändert werden. Fügen Sie 
dem o.g. Programm die folgenden Zeilen an: 


160 PRINT"-------------------------- " 
170 INPUT"ZU ANDERNDES FELD: "5 
180 INPUT"NEUER INHALT: "sD$(X,Y) 


190 PRINT"O.K." 

200 PRINT"WEITERE ÄNDERUNGEN (J/N)?" 
210 GET X$: IF X$-""THEN 210 

220 IF X$="J"THEN 100 

230 IF X$="N"THEN END 

240 GOTO 210 


Hier wird die Nummer des zu ändernden Feldes als zweiter 
Index benutzt, der dann neben dem bereits ausgewahlten Index 
des Datensatzes zur Eingabe des neuen Tabellenplatzes 
eingesetzt wird. 

Diese geänderte Tabelle muß nun wieder auf die Diskette 
gespeichert werden. Benutzen Sie dazu die folgende Routine. 
Speichern Sie aber vorher die Änderungsroutine ab! 


100 OPEN 1,8,2,"a: TESTFILE.SEQ,S,W" 
110 FOR X=1 TO 6 

120 FOR Y=1 TO 3 

130 PRINT#1,D$(X,Y) 


140 NEXT Y 

150 NEXT X 

160 CLOSE 1 
Auch diese Routine ist durch Anwendung einer zweifach 
verschachtelten Schleife relativ kurz. Der sogenannte 


Klammeraffe vor dem Filenamen ist notwendig, da das bereits 
existierende, alte File überschrieben werden soll. 

Der Datenzugriff ist bei dieser Tabelle sehr schnell. Die 
Zugriffszeit ist von der Tabellengröße unabhängig. Jedoch ist 
die Größe der Tabelle und somit die Datenmenge abhängig von 
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der Speicherkapazität. Der große Speicher des Commodore 64 
wird mit der Tabellenverarbeitung bestens ausgenutzt. 
Angenommen, Sie haben ein Programm zur Verwaltung von 
Adressen geschrieben, das vieleicht um die 8 kByte umfasst, 
so verbleiben noch 30 Kbyte zur Speicherung der Adressen. 
Wenn man bedenkt, daß zur Speicherung einer Adresse ca. 80 
Zeichen notwendig sind, so können Sie immerhin 384 Adressen 


ständig im Speicher verwalten! Und das mit einer 
Zugriffszeit, die selbst bei der raffiniertesten 
Dateiorganisation  (indexsequentiell, relativ) nicht zu 


übertreffen ist. Bei großen Datenmengen ist die  sequentielle 
Speicherung jedoch nicht mehr anwendbar. 


1.4.8 Suchen in der Tabelle 


Wie bei der  Tabellenverarbeitung erwähnt, kann jeder 
Datensatz einer Tabelle indiziert werden. Da die Tabelle 
zweidimensional ist, stellt der erste Index die Nummer des 
Datensatzes dar, mit der jeder beliebige Satz adressiert und 
ausgegeben werden kann. Wenn in einer als Tabelle im 
Hauptspeicher geladenen Datei ein Satz manipuliert werden 
soll, so setzt das voraus, daß der Anwender die Nummer dieses 
Satzes kennt. Diese Nummer kann im einfachsten Fall z.B. die 
Artikel- oder Kundennummer sein. Es gibt aber auch Dateien, 
die kein geeignetes Feld zur Durchnumerierung der Daten 
enthalten. In derartigen Dateien muß der gewünschte Datensatz 
in der Tabelle gesucht werden. Dazu müssen alle Datensätze 
der Tabelle durchsucht, und mit dem als Suchbegriff 
eingegebenen Feld verglichen werden. Ein praktisches Beispiel 
dazu: 


Erstellen Sie zuerst mit folgendem Programm eine Datei, die 
zum Beispiel Namen und Telefonnummern speichert: 


100 OPEN 1,8,2,"TELEDAT,S,W" 

110 PRINT CHR$(147) 

120 INPUT "NAME : "s ΝΝΦ 

130 INPUT "VORNAME :";VN$ 

140 INPUT "VORWAHL :"3VWS 

150 INPUT "NUMMER ` :";NU$ 

160 PRINT "EINGABE KORREKT (J/N)?" 

170 GET X$: IF X$=""OR X$ <>"J" AND X$<>"N" THEN 170 
180 IF X$="N"THEN110 

190 PRINT"WEITERE EINGABEN (J/N)?" 

200 GET X$:IF X$=""OR X$<>"J" AND X$ <>"N" THEN 200 
210 IF X$="N"THEN 240 

220 PRINT41,NN$","VNS" , "VWS" , "NUS 

230 GOTO 110 

240 CLOSE 1 


Die Dokumentation des Programms: 


Zeile 100 Die sequentielle Datei "TELEDAT" wird zum 
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Schreiben geöffnet 


Zeile 110 Der Bildschirm wird gelöscht 

Zeile 120-150 Die 4 Felder der Datei werden von Tastatur 
eingegeben 

Zeile 160-180 Falls die Daten nicht korrekt eingegeben 


wurden, kann die Eingabe wiederholt werden 


Zeile 190-210 Hier kann die Eingabe und das Programm 
beendet werden 


Zeile 220 Die 4 Felder des Datensatzes werden hin- 
tereinander in die Datei geschrieben 


Zeile 230 Die Eingabe wird fortgesetzt 
Zeile 240 Die in Zeile 100 geöffnete Datei wird ge- 
schlossen 


Geben Sie nun dieses Programm ein, starten es und erfassen 
einige Daten. Speichern Sie dieses Testprogramm auf Diskette, 
wenn Sie es später einmal zusammen mit den folgenden 
Beispielen zu einem Programm zusammenfassen möchten. Im 
letzten Abscchnitt dieses Kapitels finden Sie jedoch das 
komplette Programm zur Verwaltung Ihres Telefonregisters. 
Wenn Sie nun einige Daten erfasst haben, möchten Sie 
vieleicht die ein oder andere Telefonnummer ausfindig machen. 
Dazu können Sie u.U. die gesamte Datei auf Bildschirm oder 
Drucker ausgeben und die entsprechende Telefonnummer 
heraussuchen. Dies ist jedoch eine aufwendige Methode, 
besonders dann, wenn die Datei viele Datensätze umfasst. 

Die Suche nach der Telefonnummer eines bestimmten Namens kann 
man dem Rechner überlassen. Er durchläuft in einer Schleife 
die Datensätze und vergleicht sie mit dem gewünschten Namen. 
Danach gibt er dann den gesamten Datensatz, in dem dieser 
Name enthalten ist, aus. Die folgende Routine arbeitet 
dementsprechend: 


100 OPEN 1,8,2,"TELEDAT,S,R" 

110 DIM D$(100,4):X=1 

120 INPUT4&1,D£ (X,1) ,D$(X,2) ,D$(X,3) ,D$(X,4) 
130 IF ST<>64 THEN X=X+1:GOTO 120 

140 CLOSE 1 

150 PRINT CHR$(147) 

160 PRINT"GESUCHTER NAME: ";S$ 

170 FOR 1-1 TO X 

180 IF D$(I,1)=S$ THEN 210 

190 NEXT I 

200 PRINT "NAME NICHT GEFUNDEN! ":G0T0O 280 
210 PRINT "NAME GEFUNDEN: " 


220 PRINT "-------------- " 

230 PRINT "NAME: "sD$(I,1) 
240 PRINT "VORNAME: "sD$(1,2) 
250 PRINT "VORWAHL: ";D$(I,2) 
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260 PRINT "NUMMER: "sD$(I,4) 

270. PRINT "-—————————————— ? 

280 PRINT "WEITER (J/N)»?" 

290 GET X$: IFX$-""OR X$<>"J"AND X$«»"N"THEN 290 
300 IF X$-"J"THEN 150 

310 PRINT"PROGRAMM BEENDET": END 


Die Dokumentation zu dem Programm: 


Zeile 100 Die sequentielle Datei "TELEDAT" wird zum 
Lesen geöffnet 


Zeile 110 Die Tabelle wird für 100 Datensatze dimen- 
sioniert und der Index auf 1 gesetzt 


Zeile 120 Die Datensätze werden in die Tabelle ein- 
gelesen 
Zeile 130 Die Statusvariable ST, die bei Dateiende 


64 enthalt wird geprüft. Liegt kein Datei- 
ende vor, so wird der Index um 1 erhöht 
und erneut eingelesen 


Zeile 140 Die in Zeile 100 geöffnete Datei wird ge- 
schlossen 

Zeile 150 Der Bildschirm wird gelöscht 

Zeile 1460 Der zu suchende Name wird von Tastatur 
eingelesen und in die Variable S$ gespei- 
chert 

Zeile 170-190 Die Schleife sucht in der Tabelle den Da- 


tensatz, dessen Namensfeld mit dem gesuch- 
ten Namen übereinstimmt. Ist der Satz ge- 
funden, so wird zur Ausgaberoutine ver- 


zweigt. 
Zeile 200 Der Name wurde nicht gefunden. 
Zeile 210-270 Der Satz, der den gesuchten Namen enthalt, 


wird komplett ausgegeben 


Zeile 280-310 Es wird die Möglichkeit eingeräumt, erneut 
einen Namen zu suchen 


Sie werden feststellen, daß dieser  Suchvorgang selbst bei 
einer größeren datenmenge recht schnell ist, da die Datei vor 
dem Suchen als Tabelle in den Rechner geladen wurde. Das 
Suchen innerhalb des Speichers im Rechner ist schneller, als 
die Suche auf der Diskette, wenn die Datei sich im Speicher 
befindet. Das Programm läßt sich leicht derartig abändern, 
daß nicht nur nach dem Namen, sondern nach einem beliebigen 
anderen Feld gesucht wird. Vieleicht versuchen Sie es einmal, 
eine Telefonnummer zu suchen. 
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Das eben behandelte Programm bricht die Suche nach dem ersten 
Datensatz, der dem Suchbegriff entspricht, ab. Das ist aber 
nicht immer sinnvoll. Wenn z.B. in der erstellten 
Telefondatei alle Datensätze gesucht und ausgegeben werden 
sollen, die einer bestimmten Vorwahl entsprechen, so ist eine 


andere Routine notwendig. Diese Routine muß nach dem 
Auffinden eines Datensatzes diesen ausgeben und die Suche 
fortsetzen. Das folgende Programm erfüllt diese 
Anforderungen: 


100 OPEN 1,8,2,"TELEDAT,S,R" 

110 DIM D$(100,4):X=1 

120 INPUT#1,D¢(X,1) ,D$(X,2) ,D$(X,3) ,D€(X,4) 
130 IF ST<>64 THEN X=X+1:GOTO 120 

140 CLOSE 1 

150 PRINT CHR$(147) 

160 PRINT"GESUCHTE VORWAHL: "55$ 

170 FOR I-1 TO X 

180 IF D$(1,3)=S$THEN 210 


190 NEXT I 

200 PRINT"DATEIENDE'":GOTO 270 
210 PRINT'"--------------- " 

220 PRINT"NAME: "sD$CI,1) 
230 PRINT"VORNAME: "sD£(I,2) 
240 PRINT"VORWAHL: "ç D$(I,3) 
250 PRINT"NUMMER: "sD£(I,4) 
260 PRINT"--------------- " 


270 PRINT"WEITER (J/N)?" 

280 GETX$: IFX$-""OR X$«»"J"AND X$«»"N"THEN 280 
290 IF X#="J"THEN 190 

300 PRINT"SUCHE ABGEBROCHEN! "e END 


Hier wird die Suche fortgesetzt, wenn ein Datensatz mit der 
entsprechenden Vorwahl gefunden wurde. Dies bewirkt die Zeile 
290, die das Programm nicht beendet, sondern die Schleife 
fortsetzt. Erst nach Durchsuchen aller Datensätze meldet das 
Programm "Dateiende". Wenn Sie den Ablauf dieses Programms 
vestanden haben, so entwickeln Sie vieleicht einmal eine 
Suche nach dem Vornamen! Sicher wird es Ihnen mit 
Zuhilfenahme der 0.9. Befehlsfolge keine Schwierigkeiten 
bereiten. 


1.4.9 Einfaches Sortieren der Tabelle 


In der Datenverarbeitung ist es oft erforderlich Daten sowohl 
in numerischer als auch in alphanumerischer Form zu 
sortieren. Dies war schon immer ein rechenzeitintensiver 
Vorgang, den Programmierer durch immer wieder  vebesserten 


Sortiermethoden zu verkürzen wußten. Doch gerade in 
Verbindung mit der Programmiersprache BASIC, die in der Form 
eines  Interpreters doch relativ langsam ist, ist das 


Sortieren sehr zeitaufwendig. 
Warum werden Daten eigentlich sortiert”? Stellen Sie sich ein 
Telefonbuch vor, in dem die Namen völlig ungeordnet enthalten 
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sind. Sie müßten dann von Anfang bis Ende das Telefonbuch 
durchsuchen, um einen bestimmten Namen zu finden. Die 
Sortierung bietet also Vorteile beim Aufsuchen von Daten 
innerhalb einer Datenmenge. Auch der Computer kann wesentlich 
schneller in einer sortierten Datei suchen. 

Es gibt mehrere Sortiermethoden, die sich hauptsächlich in 


der Geschwindigkeit unterscheiden. Die einfachste 
Sortiermethode ist die Methode des Vergleichens eines 
Tabellenplatzes mit jedem anderen. Soll eine Tabelle 


aufsteigend sortiert werden, so wird der erste Tabellenplatz 
mit dem zweiten verglichen. Ist der erste größer, so wird er 
mit dem zweiten vertauscht. Danach wird der erste 
Tabellenplatz mit dem dritten verglichen, usw., bis der 
letzte Platz erreicht ist. Danach befindet sich der kleinste 
Tabellenplatz am Anfang, also auf dem richtigen Platz. Der 
nächste Durchlauf berücksichtigt den ersten Tabellenplatz 
also nicht mehr. An einem Programmablaufplan läßt sich diese 
Logik verdeutlichen: 


START 


J ITA(O)=TA(T) 
TA(XI=TA(O) 
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Dieses Sortierprogramm geht vom Index 1 aus, der als 
Anfangsindex in die Variable I gespeichert wird. Der zweite 
Index ist die Variable X, die den um eins erhöhten 
Anfangsindex I enthält. Dann wird der erste Tabellenplatz mit 
dem zweiten verglichen. Ist der Inhalt von TA(I) größer als 
der von TA(X), muß das Programm deren Inhalt über das 
Hilfsfeld TA(O) vertauschen. Dieser Ringtausch verhindert, 
daß die Inhalte der beiden Felder verlorengehen. Danach wird 
der Index X um eins erhöht, also auf den Wert 73 gebracht, 
wonach dann der erste Tabellenplatz TA(I) mit dem dritten 
TA(X) verglichen wird, usw. Wenn der letzte Tabellenlatz 
erreicht ist (X > letzter Index), befindet sich im ersten 
Tabellenplatz TA(I) der kleinste Tabellenplatz und der Index 
I wird um eins erhöht. Nun wird der zweite Tabellenplatz mit 
allen weiteren verglichen, usw. 

Diese Sortiermethode erscheint auf den ersten Blick recht 
umständlich. Die Vergleiche laufen im Hauptspeicher aber 
relativ schnell ab. Für kleinere Sortiermengen reicht diese 
Methode aus. 

Um dieses Programm laufen zu lassen, muß erst eine Tabelle 
aufgebaut werden. Wir benutzen eine Tabelle mit 12 Plätzen, 
die alphanumerische Daten (Strings) enthält. Diese Tabelle 
wird mit folgender Routine gefüllt: 


100 DIM TA$(12) 
110 FOR I-1 TO 12 
120 INPUT TA#(T) 
130 NEXT I 


Nach Starten dieser Befehlsfolge geben Sie 12 beliebige 
Strings ein, die dann mit dem folgendem Programm aufsteigend 
sortiert werden: 


140 I=1 

150 X=I+1 

160 IF TA€$(I) < TA$(X) THEN 180 
170 TA$(O)-TA$(I) : TAS CI) =TAS (X) : TAS (OX? = TAS CO) 
180 X-X-*1 

190 IF X <= THEN 160 

200 I=I+1 

210 IF I <> 12 THEN 150 

220 FOR I-1 TO 12 

230 PRINT TA€(I) 

240 NEXT I 


Die Tabelle wird nun sortiert und auf dem Bildschirm 
ausgegeben. Soll anstatt dieser eindimensionalen Tabelle eine 
zweidimensionale Tabelle wie unsere im Speicher befindliche 
Telefondatei sortiert werden, so müssen alle Felder eines 
Satzes vertauscht werden. Die Zeilen 160 - 170 werden zum 
Sortieren nach Namen folgendermaßen abgeändert: 


160 IF D£(I,1) < D€(X,1) THEN 180 

170 D$(O0,1)=D$(I,1):D$(I,1)=D$(X,1):D$(X,1)=D$ (0,1) 
171 D$(0,2)=D$(1,2):D$(I,2)=D$(X,2):D$(X,2)=D$(0,2) 
172 D$(0,3)=D$(1,3):D$(1,3)=D$(X,3) :D$(X,3)=D$ (0,3) 
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173 D$(0,4)=D$(I,4):D$(I1,4)=D$(X,4):D$(X,4)=D$ (0,4) 


Einen größeren Datenbestand dieserart zu sortieren ist sehr 
zeitaufwendig. Wenn Sie auch bei größeren Datenmengen auf 
eine schnelle Sotierung angewiesen sind, so empfehlen wir 
Ihnen die sehr schnelle Maschinensprache-Sortierroutine aus 
unserem Buch "64 TIPS UND TRICKS" 


1.4.10 ADRESSENVERWALTUNG mit sequentieller Datenspeicherung 


Zum Ende dieses Kapitels bieten wir Ihnen eine komfortable 
Adressenverwaltung, die wahrscheinlich jeder Anwender 
sinnvoll einzusetzen weiß. Dieses Pogramms ist gleichzeitig 
eine Anregung zur Erstellung vieler Dateiverwaltungen. 

Eine Adressensatz dieses Programms besteht aus folgenden 
Feldern: 


— ANREDE 

— NAME 1 

- NAME 2 

— STRASSE/NR. 
— PLZ/ORT 

— TELEFON 

— BEMERKUNG 


Die Anwendung der Felder “NAME 1° und “NAME 2° bleibt dem 
Anwender überlassen. So kann z.B. in ‘NAME 1° der Vorname und 
in “NAME 2’ der Zuname gespeichert werden. Oder aber in ‘NAME 
1° die Firma und in ‘NAME 2° "zu Händen...". Das Feld 
"BEMERKUNG kann z.B. die Adressen gruppieren (Familie, 
Beruf, Freunde usw.). 


Das Programm bietet nach dem Starten folgende 
Auswahlmöglichkeiten: 


-1- DATEI LADEN 

-2- DATEI SICHERN 

—5- DATEN EINGEBEN 

—4- DATEN AENDERN 

-5- DATEN SELEKTIEREN/AUSGEBEN 
—6- DATEN LOESCHEN 

-0- PROGRAMM BEENDEN 


-1- DATEI LADEN 


Nach Auswahl dieses Unterprogramms muß der Dateiname der zu 
ladenen Datei eingegeben werden. Falls die Datei auf der 
Diskette existiert wird diese geladen. Dann wird auf dem 
Bildschirm die Anzahl der Datensätze, die die Datei enthält, 
ausgegeben. Sollte während dem Laden ein Fehler auftreten, 
oder die Datei gar nicht existieren, so wird die Meldung 
"DISKETTENFEHLER ! " ausgegeben. Nach Abschluß des 
Unterprogramms mit ‘RETURN’ erscheint wieder das Auswahlmenü. 
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-2- DATEI SICHERN 


Falls Sie eine Datei nach dem Laden geändert oder erweitert 
haben, so müssen Sie vor Beendigung des Frogramms die Datei 
mit diesem Unterprogramm auf Diskette sichern. Als Dateiname 


wird hier entweder der Name, der bei der erstmaligen 
Datenerfassung festgelegt wurde oder der Name der geladenen 
Datei verwendet. Eine evtl. unter gleichem Namen 


existierendes File wird überschrieben. 

Während der Arbeit mit diesem Frogramm sollten die Daten 
zwischendurch immer wieder gesichert werden, da ein 
Stromausfall die Daten im Rechner löscht. Nach dem Sichern 
der Daten kann mit dieser Datei wieder weiter gearbeitet 
werden. Sie muß also nicht erst wieder geladen werden. 


-3- DATEN EINGEBEN 


Dieses Unterprogramm hat zwei Funktionen: 

1. Es wurde noch keine Datei geladen. Bevor die Daten erfasst 
werden können muß vorher ein Dateiname festgelegt werden. Die 
nachfolgenden Daten werden dann unter diesem Namen gesichert. 
Es sollte ein Name angegeben werden, der bisher noch nicht 
auf der Diskette existiert, da sonst die alte Datei 
überschrieben wird. 


2. Es befinden sich schon Daten im Rechner. Die im Rechner 
befindliche Datei wird nun erweitert. 


Nach der Erfassung einer Adresse erscheint die Meldung 
"RICHTIG (J/N) 7". Hier wird die Möglicheit gegeben, die 
eingegebenen Daten zu korrigieren. Dazu drücken Sie die Taste 
'N'. Sind alle Daten korrekt eingegeben worden, so drücken 
Sie ‘J’. Nun erscheint die Meldung “WEITERE EINGBABEN 
(J/N)?". Soll die Erfassung fortgesetzt werden, so drücken 
Sie die Taste 'J'. Wird die Taste 'N' gedrückt, so erscheint 
wieder das Auswahlmenü. 


—4— DATEN AENDERN 


Nach Auswahl dieses  Unterprogramms muß die zu  àndernde 
Adresse bestimmt werden. Hierzu muß sowohl der Name 1, als 
auch der Name 2 eingegeben werden. Sind diese beiden Angaben 
nicht bekannt, so können in dem Unterprogramm "DATEN 
SUCHEN/SELEKTIEREN" beide Namen aufgesucht werden. Nach 
Eingabe dieser Namen wird die Adresse in der Datei gesucht. 
Wird sie gefunden, so erscheint die komplette Adresse mit den 
numerierten Feldern ausgegeben. Nun muß die dem zu  àndernen 
Feld entsprechende Nummer eingegeben werden. Nun wird der 
neue Inhalt bestimmt. Die Adresse wird noch einmal im neuen 
Zustand angezeigt. Sind keine weiteren Änderungen in diesem 
Satz erforderlich, so wird die Taste >" gedrückt. 
Anschließend fragt das Programm, ob eine weitere Adresse 
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geändert werden soll. Diese Frage wird dann mit den Tasten 
'J' und "NI beantwortet. 


-5- DATEN SELEKTIEREN/AUSGEBEN 


Dies ist ein sehr komplexes und  vielseitiges  Unterprogramm. 
Zuerst bestimmen Sie, ob die selektierten Adressen auf dem 
Bildschirm (Taste 'B') oder Drucker (Taste ‘D’) ausgegeben 
werden sollen. Haben Sie sich für die Ausgabe auf dem Drucker 
entschieden, so müssen Sie nochmals auswählen, ob die 
Adressen mit allen Feldern auf normales Druckerpapier (Taste 
"P’) oder die Felder 1-5 auf Aufklebern (Taste "oi gedruckt 
werden sollen. Die Adreßaufkleber müssen einreihig sein und 
das Format 89 * 36 mm haben. 

Zum Selektieren der Daten füllen Sie eine Suchmaske. Bei 
Feldern, die nicht relevant sind, geben Sie nur ‘RETURN’. 
Wollen Sie z.B. alle Adressen ausgeben, die dem 
Postleitzahlengebiet 4 entsprechen, so geben Sie in den 
ersten 4 Felder nur ‘RETURN’. Im Feld ‘PLZ/Ort’ geben Sie die 
Zahl 4 mit anschließendem  'RETURN' ein. Die restlichen 2 
Felder werden ebenfalls mit 'RETURN' übergangen. 


Einige Beispiele selektierter Daten: 


ANREDE : FIRMA 

NAME 1 :z "RETURN" 
NAME 2 : “RETURN 
STRASSE/NR. : "RETURN" 
PLZ/ORT . 4000 

TELEFON : “RETURN ” 
BEMERKUNG s “RETURN ' 


Hier werden alle Firmen ausgegeben, die ihren Sitz in 
Düsseldorf haben. 


ANREDE : "RETURN" 
NAME 1 : M 

NAME 2 z "RETURN" 
STRASSE/NR. : ‘RETURN’ 
PLZ/ORT : ‘RETURN’ 
TELEFON : "RETURN" 
BEMERKUNG : FAMILIE 


Alle Familienmitglieder, deren Name 1 mit 'M' anfängt, werden 
ausgegeben. 


Sie sehen, wie vielseitig dieses Selektieren ist. Probieren 
Sie es selbst einmal aus. 


—6- DATEN LOESCHEN 


Nach Eingabe des 1. und 2. Namens der Adresse wird diese noch 
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einmal angezeigt. Das Programm fragt, ob diese Adresse 
wirklich gelöscht werden soll. Esrt nach Betätigung der Taste 
‘J’ wird dann gelöscht. 


-0- PROGRAMM BEENDEN 


Bevor das Programm beendet wird, wird darauf hingewiesen, daß 
das Programm mit ‘GOTO 110° ohne Datenverlust wieder 
gestartet werden kann. Das ist wichtig, falls Sie einmal 
vergessen, die Daten vor Beendigung des Programms zu sichern. 


Doch nun das Programm-Listing: 


100 POKE 53280 ,5:POKES3281 ,2:PRINTCHR$ (158) ; : DIMD# (100,7) 
110 GOSUB2030 
120 PRINT"WAEHLEN SIE DIE GEWUENSCHTE FUNKTION: " 


130 PRINT"-—————— " sPRINT 
140 PRINT" -1- DATEI LADEN" 

150 PRINT" -2- DATEI SICHERN" 

160 PRINT" -3- DATEN EINGEBEN" 

170 PRINT" -ᾱ- DATEN AENDERN" 

180 PRINT" -5- DATEN SELEKTIEREN/AUSGEBEN" 

190 PRINT" -6- DATEN LOESCHEN": PRINT 

200 PRINT" -0- PROGRAMM BEENDEN" 

210 PRINT 

220 PRINT" AUSWAHL (0-6) ?" 


230 GETX$: IFX$< "O"ORX$>"&"THENZ23O 

240 IFX$«»"O"THEN340 

250 PRINT:PRINT" SICHER (J/N)?" 

260 GETX$: IFX$< >"N"ANDX$<>"J" THEN260 

270 IFX$="N"THEN11O 

280 GOSUB2030 

290 PRINTTAB(9);"DAS PROGRAMM KANN ΜΙΤ" :ΡΗΙΝΤ 
300 PRINTTAB(15)5"'GOTO 110'":PRINT 

310 PRINTTAB(8);"WIEDER GESTARTET WERDEN, ":PRINT 
320 PRINTTAB(4); "OHNE DASS DATEN VERLOREN GEHEN!" 
330 END 

340 ONVAL (X$) GOSUB340 ,540,680,880,1190,1770 

350 GOTO110 

S260 REM 2262234 33€ 3€63€ 

370 REM DATEI LADEN 

ZBO REM st3x303 343€ 3€3€ 

390 GOSUB2030 

400 INPUT"NAME DER DATEI :";DN$ 

410 OPEN15,8,15 

420 OPEN1,8,2,DN$+",5,R" 

430 INPUT#15,FE: IF FE=OTHEN440 

440 PRINT"DISKETTENFEHLER ! ! ! " 

450 GOTOS10 

460 X=1 

470 INPUT#1,D$(X,1) ,D$(X,2) ,D$(X,3) ,D€(X,4) „D$(X,5) ,D$(X,6), 
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D#(X,7) 
480 IF ST<>64 THEN X=X+1:GOTO 470 
490 PRINT"DATEI IST GELADEN UND BEINHALTET "ev 
500 PRINT'"DATENSAETZE" : PRINT 
510 CLOSE1:CLOSE15 
320 PRINT"WEITER MIT RETURN" 
320 INPUTX$: RETURN 
540 REM EHER 
550 REM DATEI SICHERN 
560 REM ΕΕ 
970 IF X>OTHENSYO 
580 GOSUB2230: RETURN 
390 GOSUB2030 
600 OPEN1,8,2,":"+DN$+",5,W" 
610 FORI-1TQX 
620 PRINT«1,D$(I,1)","D$(I,2)","D$(I,30","; 
630 PRINT81,D$(I,4)","D$(I,9)","D$(I,6)","D$(I,7) 
640 NEXT 
650 PRINT"DATEI IST GESICHERT": CLOSE1 : PRINT 
660 PRINT"WEITER MIT RETURN" 
670 INPUTX$: RETURN 
GOBO REM κκ 3€ 3€ 3€ 3€ 3€ 3EC3€ 39€ 1€ 
690 REM DATEN EINGEBEN 
700 REM KAHN ) 333€ 
710 IFX>OTHENGOTO730 
720 GOSUB2030: INPUT"DATEINAME ";DN$ 
730 X=X+1 
740 GOSUB2030 
750 PRINT "DATENEINGABE: " 
760 PRINT"-------------— "2 PRINT 
770 I=X:G0SUB2110 
780 FORI=1T07:PRINTCHR$ (145) ; s NEXT 
790 FORI=1TO7:PRINTTAB(12) 5: INPUTD$ (X, I): NEXT 
800 PRINT:PRINT"RICHTIG (J/N) 2" 
810 GETX#: IFX$«»"N"ANDX$«»"J"THENB810O 
820 IFX#="J"THENS40 
B30 GOTO740 
840 PRINT"WEITERER EINGABEN (J/N)?" 
850 GETX$: IFX$«»"J"ANDX$« >"N" THEN850 
8460 IFX$-"J"THEN7:SO 
870 RETURN 
880 REM 3u31À33 9 9 (€ 
890 REM DATEN AENDERN 
FOO REM 3646463636569 96-36-46 98 963 3E 
910 IFX>OTHEN9SSO 
920 GOSUB2230: RETURN 
930 GOSUB2030 
940 INPUT"NAME 1: ";N1$ 
950 INPUT"NAME 2: ";N2$ 
960 FORI=1TOX 
970 IFD$(1,2)=NI$ANDD$ CI ,:5) ΞΝΖΦΤΗΕΝΙΟΙΟ 
980 NEXTI 
990 PRINT"NAME NICHT GEFUNDEN!" 
1000 PRINT"WEITER MIT RETURN" : INPUTX$: RETURN 
1010 GOSUB2030 
1020 PRINT"-1- ANREDE 2"sD$(C(I,1) 
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1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1340 
1370 
1380 
1390 
1400 
1410 


1420 


1430 
1440 
1450 
1440 
1470 
1460 
1490 
1500 
1510 
1520 
1530 
1540 


PRINT"-2- NAME 1 :"sD$(I,2) 

PRINT"-3- NAME 2 :"sD$(1,3) 

PRINT"-4- STRASSE/NR. : "; D$(I,4) 

PRINT"-5- PLZ/ORT :"sD$(I,5) 

PRINT"-&- TELEFON :"5D$(I,6) 

PRINT"-7- BEMERKUNG  :"sD$(I,7) :PRINT:PRINT 
PRINT"NR. DES ZU AENDERNDEN FELDES: ":PRINT" (9=KEINE 


AENDERUNG) " ; s PRINT 

GETX$: IFVAL(X$)«1 OR VAL (X#) >7ANDVAL (X$) < >9THEN1 100 
IFVAL (X$) -9THEN1150 

Y=VAL (X$) 

INPUT"NEUER INHALT";D#(1,Y) :PRINT 

GOTO1010 

PRINT"WEITER AENDERUNGEN (J/N) ?" 

GETX$: IFX$< >" J"ANDX$< >"N" THEN1 140 

IFX$="J" THENB8O 

RETURN 

REM 296 3tt39tJEJEJEJE 3E 9E 9E 9E 9E 3€ 9E 9€ 3€ 3E 9E 9E 9€ 3€ 39€ 3€ 9€ 

REM DATEN SELEKTIEREN/AUSGEBEN 

REM 359635 636 EE IEE 3t 9E 9E 3€ 3€ 9€ 9€ 3E3€ 9€ 9€ 9€ 4€ 9€ 30 303€ 

IFX>OTHEN1240 

GOSUB2230: RETURN 

GOSUB2030: PRINT"AUSGABE AUF DRUCKER (D) ODER BILDSCHIRM 
(B) ?" 

GETX$: IFX$< >"D" ANDX$< >"B" THEN1 250 

D$=X$: IFO$="B"THEN1300 

PRINT:PRINT"PAPIER (P) ODER AUFKLEBERN (A) ?" 
GETX$: IFX$< >"P" ANDX$< >" A" THEN1 280 

D$-X£ 

GOSUB2030 

PRINT"GEBEN SIE DIE SUCHBEGRIFFE EIN: " 

PRINT"BEI NICHT RELEVANTEN FELDERN NUR RETURN! '; 
ΡΗΙΝΤ"-------------------------------------------------------------------------- " s PRINT 
I-0: GOSUB2110 
FORI=1T07:PRINTCHR$ (145) ;5 : 8$ (I) =": NEXT 
FORI=1T07:PRINTTAB (12) 3: INPUTS$ (I) :NEXT 

IFO$="B" OR D$="A"THEN1450 

GOSUB2030: PRINT"DRUCKER EINGESCHALTET (J) 7?" 
GETX$: IFX$< >" J" THEN1390 

OPEN1 ,4 

PRINT#1 , "ANREDE"; SPC (4) ; "NAME 1"5SPC(14)5 "NAME 2"; 
SPC (14) 5; "STRASSE" 

PRINT#1,SPC (3) 5 "PLZ/ORT"; SPC (18) ; "TELEFON"; SPC (8) ; 
"BEMERKUNG" 

FORI=1T079: PRINT#1 , "="; : NEXT: PRINT&1 

CLOSE1 

FORI-1TOX 

FORY-1T07 

IFS$(Y)-LEFT$ (D$CI, Y) ,LEN(S$ (Y)) ) THENZ=Z+1: GOTO1480 
NEXTY 

IFZ-7THEN GOSUB 1550 

Z-O:NEXTI 

PRINT:PRINT"DATEIENDE !!":PRINT 

PRINT"WEITER MIT RETURN":PRINT 

INPUTX$ 

RETURN 
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1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1650 
1640 
1650 
1640 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1850 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 


IF0$-"B"THEN1730 
IFD$-"A"THEN1670 
OPENI,4 


PRINT#1,D$(I,1);SPC(1O-LEN(D$(I,1))); 
PRINT41,D$(I,2); SPC(20-LEN(D£(I,2))); 
PRINT&1,D$ (I,3);SPC(20-LEN(D$(I,3))); 


PRINT#1,D$(I,4) 


PRINT#1 ,SPC (3) 5 D#(1,5) 5 SPC (25-LEN(D$(I,5))) 
PRINT#1 ,D#(1I,6) 3 SPCCIS-LEN(D$(I,62)); 


PRINT#1,D$(I,7) 
PRINT#1:CLOSE1 
RETURN 

OPEN2,4 
PRINT#2 


FORJ=1T05:PRINT#2,D$(1,J) NEXT 


PRINT#2: PRINT#2: PRINT#2 
CLOSE2 

RETURN 

GOSUB2030: GOSUB2110 


PRINT:PRINT"WEITER (J)?" 


GETX$: IFX$< >"J"THEN1750 
RETURN 

REM 43636-4636 36-46 36 636-60 
REM DATEN LOESCHEN 
REM 3636-4636 3€ 3t9€ 9t 9€ 3636-36-36 
IFX>OTHEN1820 

GOSUB 2230: RETURN 
GOSUB2030 

INPUT"NAME 1 : ";N1$ 
INPUT"NAME 2 : "sN2$ 
FORI=1TOX 


IFD$ (1,2) =N1iSANDD$ (I, 5) =N2$THEN1900 


NEXTI 


PRINT"NAME NICHT GEFUNDEN! “:PRINT 
PRINT"WEITER MIT RETURN": INPUTX$: RETURN 


GOSUB2030: GOSUB2110 


PRINT:PRINT"ADRESSE LOESCHEN (J/N)7?" 
GETX$: IFX$< >" J"ANDXS$< >"N" THEN1920 


IFX$="N" THENRETURN 
FORY=ITOX-1 
FORJ=1T06 

D#(Y,J) =D¢(Y+1,J) 
NEXTJ,Y 


FORJ=1T06: DF (X,J) -"":NEXTJ 


X-X-1 


PRINT"SATZ IST GELOESCHT!" 


PRINT"WEITER MIT RETURN!“ 


INPUTX$: RETURN 
REM ΣΣΣΣΣΣΣΣΣΣΣΣΙ 


REM PROGRAMM-KOPF 
REM KANNE 


PRINTCHR$ (147); 


PRINTTAB (8) ; "========================= 
PRINTTAB(8); "ñ D RE S S E N D ñ T E I 


RETURN 
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2110 REM θε εκ € 369€ 3€ 9€ 


2120 REM SATZAUSGABE 
7130 REM 93 )9 9 393 3€ 9€ 9 


2140 PRINT"ANREDE z "SD$(I,1) 
2150 PRINT"NAME 1 s "SD$(I,2) 
2160 PRINT"NAME 2 z "sD$(I,3) 
2170 PRINT"STRASSE/NR. =: ";D$(I,4) 
2180 PRINT"PLZ/ORT z "sD$(I,95) 
2200 PRINT"TELEFON z "sD$(I,6) 
2210 PRINT"BEMERKUNG z "SsD$(1I1,7) 


2220 RETURN 

2230 REM Ju κκ κε 

2240 REM KEINE DATEI'! 

2250 REM t1Xt*)J33)3 ες 

2260 GOSUB2030 

2270 PRINT"KEINE DATEI IM RECHNER'":PRINT 
2280 PRINT"WEITER MIT RETURN" 

2290 INPUTX#: RETURN 


1.4.11 Anwendungsgebiete der sequentiellen Datenspeicheurng 


Der große Vorteil der sequentiellen Datei gegenüber den in 
den náchsten Kapiteln beschriebenen relativen und 
Direktzugriffsdateien besteht vor allem im sehr sparsamen 
Umgang mit Speicherrlatz. Daten der unterschiedlichsten Länge 
können fortlaufend hintereinander gespeichert werden, ohne 
daß Datensätze eine bestimmte definierte Länge haben müssen 
und jeweils nicht ausgenutzter Speicherplatz nutzlos 
vergeudet wird. Sinnvoll ausnutzen läßt sich dieser Vorteil 
überall dort, wo nicht ständig Teile der Datei geändert 
werden müssen, wo nicht laufend auf auf bestimmte Datensätze 
gezielt zugegriffen werden muß. Beispiele sind 


* Protokolldateien 
In einem Buchungsjournal werden fortlaufend alle 
Buchungsvorgänge protokolliert. Änderungen sollen und 
dür f en nicht vorgenommen werden. 


* Auswertungsdateien 
Sie werten eine Direktzugriffsdatei aus, z.B. alle 


Kunden mit mehr als DM 5000, — Umsatz aus dem 
Postleitzahlengebiet 4, und schreiben die gefundenen 
Datensätze für den späteren Ausdruck in eine 


sequentielle Datei. 


Natürlich bieten sich die sequentiellen Dateien auch, wie in 
den vorherigen Kapiteln beschrieben, als Ersatz für 
Direktzugriffsdateien an, wenn beim Anwender weiterreichende 
Programmierkenntnisse nicht vorhanden sind. Allerdings würden 
wir Ihnen empfehlen, auch die anderen Arten der 
Datenspeicherung durchzuarbeiten, da sie zum Teil gravierende 
Vorteile bieten. 
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1.5 Relative Datenspeicherung 


Die relative Datenspeicherung und ihre Programmierung werden 
im Handbuch der VC-1541 nicht beschrieben. Der Grund dürfte 
darin liegen, daß der COMMODORE 64 und der  VC-20 in ihrem 
BASIC 2.0 keine Befehle zur Verwaltung von relativen Dateien 
enthalten. Damit ist im Prinzip eine relative 
Datenspeicherung mit dem CBM 64 und dem VC-20 nicht möglich - 
aber nur im Prinzip. Wir haben einige Kunstgriffe entwickelt, 
mit denen Sie die Beschränkung des BASIC 2.0 umgehen und die 
relative Datenspeicherung auch mit dem VC-20 und dem 64-er 
nutzen können. Im einzelnen mag dies zwar manchmal etwas 
kompliziert erscheinen — so werden z.B. Angaben über die 
Recordlänge an die Floppy mit  CHR$(x)-Codes übermittelt - 
‚doch erschließen Sie sich so eine sehr komfortable Methode 
der Datenspeicherung. 


1.5.1 Das Prinzip 


Bei der relativen Dateiverwaltung werden die Datensätze (auch 
Records genannt) durchnumeriert. Mit der Voraussetzung, daß 
alle Datensätze einer relativen Datei die gleiche Länge 
haben, kann anhand der Recordnummer jeder Datensatz direkt 
adressiert werden. Zum Auffinden eines Records ist es nicht 
erforderlich, die gesamte Datei zu durchsuchen. Es wird 
lediglich die Nummer des Records relativ zum Dateianfang 
angegeben und der Record kann ausgelesen werden. Anhand der 
Satznummer kann das DOS erkennen, wo sich der Datensatz 
"relativ" zum Anfang der Datei auf Diskette befindet und so 
direkt auf diesen Datensatz zugreifen. Damit müssen nicht 
mehr komplette Dateien oder  Indextabellen in den Rechner 
eingelesen werden, sondern nur nuch die gerade benötigten 
Datensätze. 


Die Verwaltung einer relativen Datei läuft nach folgendem 
Muster ab: 


Einrichten einer relativen Datei: 


1. Die Datei wird geöffnet. Dabei wird die Länge eines Re- 
cords festgelegt. 

2. Der letzte Record wird gekennzeichnet. 

3. Die Datei wird wieder geschlossen. 


Schreiben eines Records: 
1. Die Datei wird geöffnet. 
2. Es wird auf den zu schreibenden Record positioniert. 


3. Der Record wird geschrieben. 
4. Die Datei wird geschlossen. 
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Lesen eines Records: 


1. Die Datei wird geöffnet. 

2. Es wird auf den zu lesenden Record positioniert. 
3. Der Record wird gelesen. 

4. Die Datei wird geschlossen. 


Dies war nur eine grobe übersicht. In den folgenden 
Abschnitten werden diese Vorgänge noch ausführlich 
beschrieben. 


1.5.2 Der Vorteil gegenüber sequentieller Speicherung 

Die wesentlichen Vorteile der relativen Speicherung sind: 
* schneller Zugriff auf jeden Record 
* relative Dateien entlasten den Speicher des Rechners 


Bei der Behandlung der sequentiellen Dateien wurde bereits 
erwähnt, daß die sequentielle Datei zu deren Verwaltung 
vollständig im Speicher des Rechners enthalten sein muß. Ist 
dies nicht der Fall, so ist es beim Aufsuchen eines 
Datensatzes notwendig, die gesamte Datei zu durchsuchen. D.h. 
jeder Datensatz muß gelesen und mit dem Suchbegriff 
verglichen werden. Sollte eine sequentielle Datei nicht 
vollständig im Speicher unterzubringen sein, so ist diese 
Methode des Suchens unumgänglich. 

Bei relativen Dateien ist das wesentlich einfacher. Mit Hilfe 
der Recordnummer kann auf jeden Satz direkt zugegriffen 
werden. Die Datei ist also vom Speicher des Rechners 
unabhängig. So kann z.B. mit einem Programm, das die 3,5 
KByte des VC 20 vollständig belegt, eine Datei mit bis zu 163 
KByte verwaltet werden! 

Die Vorteile der relativen gegenüber der sequentiellen 
Dateiverwaltung sind derart groß, daß jeder, der einmal mit 
relativen Dateien vertraut ist, die Form der relativen 
Dateien vorziehen wird. 


1.5.3 Das öffnen einer relativen Datei 


Auch relative Dateien werden mit einem OPEN-Befehl geöffnet. 
Dieser Befehl unterscheidet sich nur gering von dem der 
sequentiellen Dateien. Schauen Sie sich nun das Format des 
OPEN-Befehls einmal an: 


OPEN Ifn,ga,kanal,"filename,L,"+CHR$#(recordlänge) 
Die ersten A Parameter sind mit denen des OPEN-Befehls für 


sequentielle Dateien identisch. Also logische Filenummer, 
Geräteadresse (im Normalfall 8), Kanal (2-14), Name der 
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Datei. 

Nun folgt ein “L , das dem DOS mitteilt, daß nun eine 
relative Datei geöffnet werden soll, deren Recardlànge folgt. 
Diese Recorlänge wird mit einem  CHR$-Code übermittelt. Die 
Länge liegt zwischen 1 und 254. Ein Record darf also maximal 
254 Zeichen umfassen. 

Ist die Recordlänge kleiner als 88, so kann der Record mit 
einem  INPUT-Befehl gelesen werden. Dazu ist es aber 
erforderlich, daß der PRINT-Befehl den Record mit einem 
abschließenden RETURN übermittelt hat. In der Regel sendet 
der PRINT-Befehl dieses RETURN, wenn er nicht mit einem 
Semikolon abgeschlossen wurde. Dieses RETURN ist nun 
Bestandteil des Records. Wollen Sie also Records mit INPUT 
einlesen, so muß die Recordlänge im OPEN-Befehl immer um eins 
erhöht werden. 

Eine Datei, deren 80-Zeichen umfassende Records mit INPUT 
eingelesen werden sollen würde demnach folgendermaßen 
geöffnet: 


OPEN 1,8,2,"FILE.REL,L,"+CHR$ (81) 


Hier wird ein relatives File mit dem Namen  "FILE.REL" über 
Kanal 2 geöffnet. Die Recordlänge soll 81 Zeichen betragen. 
Es sollen also 80 Zeichen umfassende Records mit einem 
PRINT-Befehl gesendet werden, dem kein Semikolon folgt. 


Wichtig ist, daß immer nur eine relative Datei geöffnet sein 
kann. Wollen Sie mit zwei relativen Dateien arbeiten, so muß 
immer die erste geschlossen werden, bevor die zweite geöffnet 
wird. Zusätzlich zu der relativen Datei kann eine 
sequentielle Datei geöffnet werden. 

Zum erstmaligen Einrichten einer relativen Datei ist es 
sinnvoll, den letzten Record freizugeben, da dann sämtliche 
vor diesem Record liegende Datensätze auch freigegeben 
werden. Freigeben bedeutet, den Record mit dem Byte CHR#$ (255) 
zu beschreiben. Versucht man, einen Reocrd zu lesen, dessen 
Nummer über die des letzten Records der Datei liegt, so 
verursacht dies den Fehler "RECORD NOT PRESENT". Beschreibt 
man jedoch einen Record, der über dem bisher höchsten Record 
liegt, so werden gleichzeitig alle Records, die unterhalb 
dieses neuen Records liegen, mit CHR$ (255) beschrieben. Ein 
späterer Lesezugriff auf einen Record dieses Bereichs erfolgt 
dann fehlerlos. Das Beschreiben dieser "freigegebenen" 
Records erfolgt dann wesentlich schneller, weil alle Records, 
die unter diesem liegen, nicht mehr freigegeben werden 
müssen. Ein Beispiel: 


Sie errichten eine relative Datei mit 100 Records. Sie geben 
aber den letzten (100.) Record nicht frei. Wenn Sie nun einen 
Record beschreiben, der über dem letzten beschriebenen Record 
dieser Datei angeordnet ist, werden gleichzeitig alle 
Records, die zwischen dem letzen und dem gerade beschriebenen 
Record liegen, freigegeben. Um diese Prozedur zu vermeiden, 
wird nach dem erstmaligem öffnen der letzte Record, und somit 
auch alle anderen Records freigegeben. Das spätere 
Beschreiben dieses freigegebenen Records läuft dann 
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wesentlich schneller ab. 

Zum Freigeben des letzten Records wird dieser also lediglich 
mit dem ASCII-Wert FF -CHR$ (255) — beschrieben. Zum 
Beschreiben eines Records muß aber vorher auf diesen 
positioniert werden. Dazu wird über dem Befehlskanal der 
Floppy (15) ein Positionier-Befehl gesendet werden, der wie 
folgt aufgebaut ist: 


PRINT#1#n, "FP"+CHR$ (kanal ) +CHR# (low) *CHR$ (high) +CHR$ (byte) 


Wenn zum Freigeben von Recards auf einem Record positioniert 
wird, der über das bisherige Dateiende hinausgeht, so 
erscheint im Floppy-Fehlerkanal die Meldung "RECORD NOT 
PRESENT". Da dieser positionierte Record aber nicht gelesen, 
sondern nur beschrieben (freigegeben) werden soll, kann die 
Meldung ignoriert werden. Der folgende PRINT auf diesen, noch 
nicht  freigegebenen Record wird trotz der Fehlermeldung 
durchgeführt. 


Die Parameter ‘low’ und ‘high’ im P-Befehl geben die 
Recordnummer an. Da mit einem Byte maximal der Wert 254 
angegeben werden kann, eine relative Datei aber bis zu 65535 
Records beinhaltet, muß die Recordnummer in zwei Bytes 
übermittelt werden. Diese zwei Bytes berechnet man mit 
folgender Formel: 


HB=INT (RN/256) 
LB-RN-HB*23536 


HB = High Byte (Parameter ‘high’) 
LB = Low Byte (Parameter ‘low’) 
RN = Recordnummer 


Der letzte Parameter dient der Positionierung auf eine 
bestimmte Stelle innerhalb des angegebenen Records. Ein 
Beispiel: 


PRINT#2,"P"+CHR$ C2) +CHR$ (10) *CHR$ (1) *CHR$ (5) 


Hier wird auf das 5. Byte des 2664. Records positioniert. 
Diese 266 wird als Lowbyte 10 und Highbyte 1 codiert 
(Highbyte x 256 + Lowbyte = Recordnummer ) 

Zum Lesen oder Schreiben eines kompletten Records muf? 
unbedingt auf das 1. Byte positioniert werden. Wird der 
letzte Parameter nicht angegeben, so wird das abschließende 
"RETURN" -CHR$(13)- als Bytepositionierung angenommen. 


Der entsprechende BASIC-Ausschnitt zum Einrichten einer Datei 
mit 1000 Records und jeweils 80 Zeichen sieht dann 
folgendermaßen aus: 


100 RN=1000 

110 HB=INT (RN/256) 

120 LB-RN-HB*256 

130 O0PEN1,8,2,"FILE.REL ,L , "-CHR$ (BO) 
140 OPEN2,8,15 
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150 PRINT#2, "P"+CHR$ (2) *CHR$ (LB) +CHR$ (HB) *CHR$ (1) 
160 PRINT#1 „CHR$ (255) 
170 CLOSE 1:CLOSE 15 


Das Freigeben der 1000 Records nimmt einige Zeit in Anspruch. 
So kann das Einrichten dieser Datei ca. 10 Minuten dauern. 
Beachten Sie aber, daß in diesen  80-Zeichen-Records nur 79 
Zeichen Daten untergebracht werden kann, wenn die Daten mit 
einem PRINT-Befehl mit  abschlieBendem RETURN übertragen 
werden! 


1.5.4 Vorbereitung der Daten zur relativen Speicherung 


Wie bereits erwähnt, sind Sie bei der relativen Speicherung 
an eine feste Satzlänge gebunden. Besteht ein Record aus 
mehrerern Feldern, so müssen diese Felder zusammengefügt 
werden. Wichtig ist hierbei, daß sich die Felder in der 
gesamten Datei in jedem Datensatz immer an derselben Position 
befinden müssen. Spielen wir dieses Problem einmal durch: 


Es soll ein Artikelstamm relativ verwaltet werden. Dazu sind 
folgende Felder notwendig: 


ARTIKELNUMMER 4-stellig 
BEZEICHNUNG 15-stellig 
LAGERNUMMER S-stellig 
EINK.-PREIS 6-stellig 
VERK.-PREIS 6-stellig 
Recordlänge 36 Bytes 


Der Artikelstamm umfasst ca. 200 Artikel mit einer Satzlänge 
von 36 Bytes. Diese Artikeldatei soll nun eingerichtet 
werden: 


100 RN=200:REM ANZAHL DER ARTIKELSATZE 

110 RL=36 :REM RECORDLANGE 

120 OPEN 1,8,2,"ARTIKEL ,L , "*CHR$ (36) 

130 OPEN 2,8,15 

140 PRINT#2, "P"+CHR$ (2) +CHR$ (200) *CHR$ (O) +CHR$ (1) 
150 PRINT#1 „CHR$ (255) 

160 CLOSE 1:CLOSE 2 


Nun ist die Datei eingerichtet und alle Records können 
beschrieben werden. Nehmen wir nun einmal an, daß die 
Artikeldatei sequentiell vorliegt. Sie besteht aus 200 
Datensätzen deren Felder hintereinander angeordnet sind. 
Diese Felder müssen zu einzelnen Records zusammengebunden und 
in die relative Datei übertragen werden. Das ist aber nicht 
einfach, da z.B. die Artikelbezeichnung nicht immer die volle 
Länge von 15 Zeichen haben wird. Die Struktur der relativen 
Datei soll wie folgt aussehen: 
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111111111122222222227233333 
Position §123456789012345678901234567890123454 


Inhalt BLECH 2MM 1344 23.40 42.30 
SCHRAUBE 3MM 1231 9.00 14.00 

VENTIL ASA4 1243 23.45 29.90 

200 SCHLAUCH 12MM 2321 6.70 9.80 


Aus der sequentiellen Datei werden die Felder in folgende 
Variablen eingelesen: 


Artikelnummer nach AN$ 
Artikelbezeichnung nach BE$ 
Lagernummer nach LNS 
Einkaufspreis nach EP$ 
Verkaufspreis nach VP¢ 


Der folgende Befehl verkettet zwar diese Felder, aber wie 
sich noch herausstellen wird, nicht mit dem erwünschten 
Erfolg: 


RC# = AN$ + BES + LNS + EP$ + VPS 


Dieser Record RC# entspricht nicht der gewünschten Struktur 
der Datei. Der Grund dafür ist, daß der Artikelbezeichnug 
dann unmittelbar die Lagernummer folgt. Da die Lagernummer 
aber unbedingt ab Stelle 20 beginnen muf3 und die 
Artikelbezeichnug nicht konstant 15 Zeichen umfasst, ergeben 
sich dabei Probleme. Um die Records nach dem Lesen aus der 
relativen Datei wieder richtig aufbereiten zu können, muß die 
Struktur unbedingt eingehalten werden. Dazu müssen alle 
Felder, falls sie kürzer als die eingeplante Länge sind, mit 
Leerzeichen aufgefüllt werden. Wenn man dies berücksichtigt, 
sieht die Verkettung folgendermaßen aus: 


BL $= " " 
RC#=ANS+LEF T# CBL$ ,4-L EN CAN$) ) 
RC$-RC$-BE£$-*LEFT$f$(BL$,15-LEN(CBE$)) 
RC$-RC£$-«LN$-LEFTS$((OBL$,5-LEN(CLN£)) 
RC4$-RC$-EP$-*LEFT$ (BL$,6-LEN(CEP$)) 
RC#=RC$+VP$+LEF TS (BLS, 6-LEN(CEP$) ) 


Diese Verkettung sieht komplizierter aus, als sie es wirklich 
ist. Jedes Feld muß mit der Anzahl von Leerzeichen ergänzt 
werden, die sich aus max. Länge des Feldes minus 
tatsächlicher Länge des Feldes ergibt. Diese Leerzeichen 
werden dem anfangs definierten String BL$ entnommen. Dieser 
String ist so lang wie das längste Feld des Records, in 
diesem Fall 15 Zeichen. 
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Spielen wir einmal ein Beispiel durch: Angenommen die erste 
Artikelnummer ist 8. Die Länge dieses Strings ,LEN(AN$), ist 
also 1. Die max. Länge des Feldes (4) minus der tatsächlichen 
Länge (1) ergibt also 3. Der String AN muB also mit 3 
Leerzeichen „LEFTF(BL$,3), aufgefüllt werden. 

Jeder Datensatz der bisherigen, sequentiellen Datei muß 
derartig aufbereitet werden, bevor man ihn in die relative 
Datei übernehmen kann. 

Natürlich gilt das oben gesagte für alle Eingabewerte, die in 
die relative Datei übernommen werden sollen. Denken Sie 
deshalb bei der Programmierung der relativen Dateiverwaltung 
immer an die Benutzung einer Routine zum Auffüllen der 
einzelnen Felder bis zur Sollänge mit Leerzeichen. 


1.5.5 Datenübertragung Floppy / Rechner 


Im Prinzip unterscheidet sich die Datenübertragung nicht von 
der bei der sequentiellen Speicherung. Sätze werden mit PRINT 
geschrieben und mit INPUT bzw. GET wieder gelesen. Der 
einzige Unterschied ist, daß vor Lesen oder Schreiben eines 
Records auf diesen positioniert werden muß. Dies geschieht 
mit dem P-Befehl. Erstellen wir nun einmal mit folgendem 
Programm eine relative Datei im Dialog: 


100 BL$=" " 

105 OPEN 1,8,2,"TEST.REL,L,"+CHR$(41) 

110 OPEN 2,8,15 

120 PRINT#2, "P"+CHR$ (2) +CHR$ (100) +CHR$ (O) +CHR$ (1) 
130 PRINT#1 „CHR$ (255) 

140 PRINT CHR$(147) 

150 PRINT"DATENSATZEINGABE: " 

160 PRINT"—-—-————— " 

170 INPUT"RECORDNUMMER (1-100) : "RN 

180 IF RN<1 OR RN>100 THEN PRINT CHR$ (145) 5 :60T0160 
190 INPUT"FELD 1 (MAX.10 ZEICHEN): ";F1$ 

200 IF LEN(F1$)>10 THEN PRINT CHR$(145)5:GO0T0190 
210 INPUT"FELD 2 (MAX. 5 ZEICHEN): ";F2$ 

220 IF LEN(F2$)>5 THEN PRINT CHR$(145)5:GOTO210 
230 INPUT"FELD 3 (MAX.10 ZEICHEN): ";F3$ 

240 IF LEN(F3$)>10 THEN PRINT CHR£(145);5:GO0T0230 
250 INPUT"FELD A (MAX.15 ZEICHEN): ";F4¢ 

260 IF LEN(F45)»15 THEN PRINT CHR$(145)5:GOTO250 
270 PRINT"RICHTIG (J/N)?" 

280 GET X$:17 X$<>"J" AND X$<>"N"THEN280 

290 IF X$-"N"THEN 140 

300 RC$-F1$-LEFT$ (BL$, 10-LEN(F1$) ) 

310 RC$-RC$4F2$4LEFT$ (BL$,5-LEN(F2$) ) 

320 RC$=RC$+F3$+LEFT$ (BLE, 10-LEN (F3#) ) 

330 RC$=RC$+F4$+LEFT$ (BL¢, 15-LEN(F4$) ) 

340 PRINT#2, "P"+CHR$ (2) +CHR$ (RN) *CHR$ (O) +CHRE (1) 
350 PRINT#1,RC$ 

360 PRINT#"WEITERE EINGABEN (J/N)?" 

370 GET X$:IF X$<>"J"AND X$<>"N"THEN 370 

380 IF X$="J"THEN 140 
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390 CLOSE 1:CLOSE 2:END 


Die folgende, zeilenorientierte Dokumentation verdeutlicht 
die Arbeitsweise dieses Programms: 


100 Es wird ein Leerzeichen-String mit der Länge 15 
definiert. 

105 Die relative Datei mit der Länge 41 wird geöffnet. 

110 Der Befehlskanal 15 wird geöffnet. 

120 Zum Initialisieren der relativen Datei wird auf das 
1. Byte des letzten (100.) Satzes positioniert. 

130 Der letzte Satz wird freigegeben und die Initiali- 
sierung beginnt. 

140 Der Bildschirm wird gelöscht. 


150-260 Die Recordnummer und die Felder 1-4 werden eingege- 
ben und auf korrekte Länge geprüft. 

270-290 Die eingegebenen Daten können noch einmal korri- 
giert werden. 

300-330 Der Record wird aufbereitet. 


340 Es wird auf das i. Byte des angegebenen Records 
positioniert. 

350 Der Record wird auf Diskette geschrieben. 

360-380 Es können erneut Daten eingegeben werden. 

390 Das Programm wird beendet 

Erfassen Sie nun mit diesem Programm einige Records. 


Vergessen Sie aber nicht, dieses Programm abzuspeichern, 
falls Sie es später noch benötigen. 


Sicherlich ist es auch notwendig, erfasste Daten zu lesen und 
verändern. Dazu wird die relative Datei geöffnet, auf den 
gewünschten Record positioniert und eingelesen. Dieser Record 
muß dann wieder in seinen Feldern zerlegt werden. Lesen wir 
nun einmal gezielt einen Record, der mit der o.g. Routine 
erfasst wurde. Die folgende Routine liest diesen Record: 


100 OPEN 1,8,2,"TEST.REL,L,"+CHR$ (41) 

110 OPEN 2,8,15 

115 PRINT CHR$(147) 

120 INPUT"RECORNUMMER zm e RN 

150 PRINT#2, "P"+CHR$ (2) +CHR$ (RN) +CHR$ (O) +CHR$ (1) 

140 INPUT#1,RC$ 

160 IF ASC(RC$)<>255 THEN PRINT"RECORD NICHT 
BELEGT'":GOTO 250 

170 PRINT RC$ 

250 CLOSE 1:CLOSE 2 


Diese Routine liest einen bestimmten Record. Ist dieser 
Record nicht belegt, so wid dies an den Wert 255 erkannt, mit 
dem beim Einrichten der Datei jeder freie Record 
gekennzeichnet wird. 

Ein beschriebener Record wird angezeigt. Sie erkennen dabei, 
daß die Felder 1-4 immer an derselben Stelle enthalten sind. 
Wollen Sie den Record wieder in seine einzelnen Felder 
aufteilen, so müssen diese mit dem Befehl MID$ dem Record 
entnommen werden. Um z.B. das Feld 1 dem Record zu entnehmen, 
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geben Sie nach Auffinden eines Records im Direkt-Modus 
folgende Befehle ein: 


F1$-MID$ (RC$,1,10) 
PRINT F1$ 


Nun befindet sich in der Variablen F1$ das 1. Feld, wie es im 
Erfassungsprogramm eingegeben wurde. Dieses "Zerpflücken" des 
Records künnen Sie in die o.g. Routine einbauen. Geben Sie 
dazu folgende Zeile zusätzlich ein: 


170 F1$-MID$ (RC$,1,10) 

180 F2$=MID$(RC$,11,5) 

190 F3$=MID$ (RC#, 16,10) 

200 F4$=MID$ (RC$,26,15) 

210 PRINT"FELD 1: ":Ε15 

220 PRINT"FELD 2: ";F2$ 

230 PRINT"FELD 3: ";F3$ 

240 PRINT"FELD 4: ";F4$ 

250 PRINT"WEITERER ZUGRIFF (J/N)?" 
260 GETX$:IF X$<>"J"AND X$<>"N"THEN 260 
270 IF X$="J"THEN 115 

280 CLOSE 1:CLOSE 2 


Hier wird der Record aufbereitet und die Felder angezeigt. 
Wichtig hierbei ist, daß die Angaben im MID$-Befehl der 
genauen Position des Feldes innerhalb des Records entsprechen 
müssen. Die erste Angabe innerhalb der Klammer ist die 
Stringvariable, aus der ein Ausschnitt entnommen werden soll. 
Die zweite Angabe ist die Position, ab der die Anzahl Zeichen 
entnommen werden soll, die in der dritten Angabe bestimmt 
ist. 

Mit den selektierten Feldern kann nun innerhalb des Programms 
weiter gearbeitet werden. 

Bisher haben wir die Records mit dem INPUT-Befehl eingelesen. 
Ist der Record aber länger als 88 Zeichen, so kann er mit dem 
INPUT-Befehl nicht mehr eingelesen werden. Der Grund dafür 
ist, das ein INPUT-Befehl grundsätzlich nicht mehr als 88 
Zeichen einlesen kann. Die Ausweichmöglichkeit zu dem nur 
beschränkt einsetzbaren INPUT-Befehl ist der GET-Befehl. Mit 
diesem Befehl werden die Bytes des Records einzeln gelesen 
und zu einem String verkettet. Nehmen wir einmal an, Sie 
haben eine relative Datei mit 128 Zeichen eingerichtet und 
diese auch beschrieben. Nun wollen Sie den 10. Record dieser 
Datei lesen und in die Variable RC$ übernehmen. Das Beispiel 
der folgenden Routine verdeutlicht dieses Einlesen mit GET: 


100 OPEN 1,8,2," TEST.GET,L , "+CHR$ (128) 

110 OPEN 2,8,15 

120 PRINT#2, "P"+CHR$ (2) *CHR$ (10) * CHR$ CO) *CHR$ (1) 
130 RC$="" 

140 FOR I=1 TO 128 

150 GET#1,X$ 

160 RC$-RC$-4X$ 

170 NEXT I 
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Nach Ablauf dieser Routine steht der Record in der Variablen 
RC$ zur Verfügung. Ist dieser Record mit einem PRINT-Befehl 
ohne anschließendes Semikolon übertragen worden, das ein 
RETURN unterdrückt, so ist das letzte Zeichen in dem String 
RC ein RETURN. Um dieses RETURN zu ignorieren, läßt man die 
Schleife in Zeile 140 nur bis 127 laufen. das letzte Zeichen 
des Records (das RETURN) wird nun nicht gelesen. 

Wie bereits erwähnt, gibt der letzte Parameter des P-Befehls 
an, ab welchem Zeichen des Records gelesen werden soll. Wenn 
Sie z.B in dem 127-Zeichen-Record des vorherigen Beispiels 
ein an der Position 40-60 befindliches Feld lesen möchten, so 
wird auf das 40. Zeichen positioniert und die folgenden 21 
Zeichen eingelesen. Die folgende Routine verdeutlicht dies: 


100 OPEN 1,8,2,"TEST.GET,L, "+CHR$ (128) 

110 OPEN 2,8,15 

120 PRINT#2, "P"+CHR# (2) +CHR$ (10) +CHR$ (0) +CHR$ (40) 
130 F$="" 

140 FOR I= 1 TO 21 

150 GET#1,X$ 

160 F$-F£4X£ 

170 NEXT I 


Da in der Zeile 120 auf das 40. Byte des 10. Records 
positioniert wird und die Schleife in den Zeilen 140-170 die 
folgenden 21 Bytes (Bytes 40-60 des Records) in F$ einliest, 
befindet sich das dort enthaltene Feld nach Ablauf dieser 
Routine in F$. 

Sie sehen also, daß zum Arbeiten mit einem Teil des Records 
nicht der gesamte Record eingelesen werden muß. Der 
Positionier-Befehl ermöglicht dies. 


1.9.6 Schließen einer relativen Datei 


Beim Schließen einer relativen Datei gibt es keine 
Unterschiede zur sequentiellen Speicherung. Da aber zur 
Verwaltung einer relativen Datei immer der Befehlskanal 15 
zum Senden des Positionierbefehls offen gehalten werden muß, 
muß auch dieser geschlossen werden. Selbstverständlich muß 
die Filenummer, die beim OPEN-Befehl gewählt wurde, auch beim 
Schließen dem File bzw. dem Befehlskanal entsprechen. 


1.5.7 Suchen eines Records nach der binären Methode 
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Im Normalfall wird auf jedem Record mit der  Recordnummer 
zugegriffen. Nun kann es aber z.B. vorkommen, daß in einer 
relativen Adressendatei der Herr Müller gesucht wird, die 
entsprechende Recordnummer aber nicht bekannt ist. Nun muß 
der Herr Müller gesucht werden. Eine Möglichkeit ist, jeden 
Record zu lesen, mit dem Namen Müller zu vergleichen, usw. 
Das kann bei einer Datei, die vieleicht 1000 Adressen 


enthält, sehr zeitaufwendig sein. Liegt die Datei in 
sortierter Form vor, so kann dieser Record mit einer anderen 
Methode gesucht werden. Diese Methode nennt man "binäres 


Suchen". Hierbei ist es aber unbedingt notwendig, die Datei 
sortiert aufrechtzuhalten. Wird z.B. ein Record hinzugefügt, 
so muß dieser entsprechend eingeordnet werden. 


Das binäre Suchen kann man an einem einfachen Beispiel 
verdeutlichen: Wenn Sie z.B. in einem Telefonbuch nach einer 
Telefonnummer suchen, so gehen Sie sicher nicht sequentiell 
vor. Sie schlagen die Mitte des Buches auf und vergleichen, 
ob der erste Buchstabe des gesuchten Namens dem 
aufgeschlagenen Teil entspricht. Ist der gesuchte Name 
kleiner, so schlagen Sie die Hälfte des 1. Teils auf, usw. 
Sie gehen also systematisch vor. 

Beim binären Suchen wird nicht sequentiell weitergesucht, 
wenn ein Record gefunden ist, der nicht dem gesuchten Record 
entspricht. Es wird anschließend auf den Record zugegriffen, 
der jeweils durch Zweiteilung der restlichen Anzahl der 
Datensätze ermittlelt wird. Daa folgende Beispiel 
verdeutlicht dies: 


Es existiert folgende, aufwärts sortierte, relative Datei: 


Von diesen aufgeführten 15 Records wird der Record mit dem 
Inhalt 3490 gesucht. Es ist nicht bekannt, auf welchem Platz 
er gespeichert ist. 

Zunächst ist festzustellen, aus wieviel Records die Datei 
besteht. Im vorliegenden Fall aus 15. Die festgestellte Zahl 
ist durch zwei zu teilen. Diese Mitte der Datei stellt den 8. 
Record mit dem Inhalt 3539 dar. Es ist nun festzustellen, ob 
dieser Record den Suchbegriff 3490 enthält und falls nicht, 
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ob der Suchbegriff größer oder kleiner als der vorgefundene 
Inhalt, in diesem Fall 3539 ist. Das Vergleichsergebnis zeigt 
kleiner an. Somit befindet sich der gesuchte Record in der 
Menge der Records, die kleiner als der Vorgefundene ist. Es 
ist also auf die Mitte dieser Restes zuzugreifen. Wir 
erhalten den Record 4 mit dem Inhalt 2230. Das 
Vergleichsergebnis zeigt an, daß der Suchbegriff 3490 größer 
als der bei Record 4 vorgefundene Inhalt 2230 ist. Der dritte 
Zugriff geht auf die Mitte zwischen dem 4. und dem 8. Record, 
also auf den ὁ. Record mit dem Inhalt 2897. Das 
Vergleichsergebnis zeigt abermals kleiner an; das bedeutet, 
es ist die Mitte zwischen den Records ὁ und 8 zu bilden. 
Somit ist der Suchbegriff unter Record 7 zu finden. 

Das Prinzip des binären Suchens besteht darin, das jeweils, 
je nach Vergleichsergebnis, aufwärts oder abwärts die Mitte 
zu suchen ist, bis der Suchbegriff gefunden wurde. Die 
maximale Anzahl der Suchvorgänge errechnet sich nach 
folgender Formel: 


S=INT (LOG (N) /LOG (2) +1) 


Hierbei ist S die Anzahl der Zugriffe und N die Anzahl der 
Records der Datei. In einer sortierten, relativen Datei mit 
z.B. 1000 Records werden maximal 10 Zugriffe zum Aufsuchen 
eines beliebigen Records benötigt! 

Erstellen wir die relative Datei mit 15 Datensätze, um 
anschließend innerhalb dieser Datei binär zu suchen: 


100 OPEN1,8,2, "BINAER.REL,L, "+CHR$ (5) 

110 FORI=1T015 

120 READ RC$ 

130 PRINT#1,RC$ 

140 NEXT I 

150 CLOSE 1:CLOSE 2:END 

160 DATA 1985, 1999, 2005, 2230, 2445, 2897, 3490, 3539 
170 DATA 4123,5000,5210, 6450, 6500, 6550, 6999 


Dieses Programm erstellt die 15 Records umfassende Datei 
"BINAER.REL" mit den in Zeile 160 bis 170 angegebenen Werten. 
Hier wird der Positionier-Befehl nicht benötigt, da die Datei 
vom ersten bis zum letzten Satz komplett beschrieben wird. 
Der Zeiger steht also nach Eröffnen der relativen Datei auf 
dem ersten Record. In dieser Datei sollen nun Records binär 
gesucht werden. Das folgende Programm ist nach der Logik des 
binären Suchens aufgebaut: 


100 OPEN1,8,2,"BINAER.REL,L,"+CHR$ (5) 

110 OPEN2,8,15 

120 PRINTCHR$ (147) 

140 N=15: REM ANZAHL RECORDS 

150 I=LOG(N) /LOG (2) 

160 IFI-INT(1I)<>OTHENI=INT(I) +1 

170 M-I-1 

180 I=2-I 

190 X=I/2 

210 INPUT"SUCHBEGRIFF (* FUER ENDE): ";SB¢ 
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220 IFSB$-"*"THEN 320 

230 IF M<O THEN PRINT"RECORD NICHT GEFUNNDEN": 
GOTO140 

240 M-M-1 

250 PRINT#2, "P"+CHR$ (2) +CHR$ (X) +CHR$ (O) +CHR$ (1) 

260 INPUT#1,RC$ 

270 IF SB$=RC$ THEN 340 

280 IF SB$«RC$ THEN X-X—-2^M: GOTO230 

290 X-X42^M 

300 IF X>I THEN PRINT"DATEI UEBERSCHRITTEN" : GOTO140 

310 GOTO 230 

320 CLOSE 1:CLOSE 2 

330 END 

340 PRINT"RECORD GEFUNDEN! " 

350 PRINT"INHALT :"RC$ 

360 GOTO140 


Die Dokumentation des Programms: 


100 Die relative Datei "BINAER.REL" wird geöffnet. 

110 Der Befehlskanal wird geöffnet. 

120 Der Bildschirm wird gelöscht. 

140 Die Anzahl der Records wird in der Variablen N ge- 
speichert. 

150-190 Sofern die maximale Anzahl der Records keine 
Zweierpotenz darstellt, wird die nächsthöherer 


Zweierpotenz gebildet. Dabei wird der Dateibe- 
reich zwar nach oben erweitert, aber es gehen auch 
keine Records verloren. Der Exponent dieser Zweier- 
potenz wird als Index benutzt. X wird der Wert 
1/2 zugeordnet. I/2 bezeichnet die genau die Mitte 
der (erweiterten) Datei. Außerdem wird wird die Va- 
riable M angelegt, die den Anfangswert I-i enthält. 

210-220 Der Suchbegriff wird eingelesen. Soll das Programm 
beendet werden, so wird '*' eingegeben. 


230 Wenn ΜΚΟ , dann ist der Suchbegriff nicht gefunden 
worden. 
240 M wird um eins vermindert. Die nächste Potenzierung 


mit M ergibt also die Hälfte des Restes der Datei. 
290-260 Es wird auf den Record positioniert, dessen Nummer 
in der Variablen X enthalten ist. 


270 Entspricht der eingelesene Record dem Suchbegriff, 
dann wird die Suche abgebrochen und der Record aus- 
gegeben. 


280-310 Es wird festgestellt, ob der Suchbegriff kleiner 
oder größer als der gelesene Record ist. Dement- 
sprechend wird die Mitte des oberen oder unteren 
Restes in die Variable X gespeichert und erneut ein- 
gelesen. 

320-330 Die Dateien werden geschlossen und das Programm be- 
endet. 

340—360 Der gefundene Record wird ausgegeben. 


Dieses, in BASIC codierte, binäre Suchen ist universell 


einsetzbar. Es müssen nur die Anzahl der Records und die 
Vergleiche Suchbegriff/Record entsprechend angepasst werden. 
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Benutzen Sie also diese Suchroutine zum Auffinden von Records 
in Ihren sortierten, relativen Dateien. 


1.5.8 Suchen eines Records über seperate Index-Dateien 


Wenn Sie häufig auf einzelne Datensätze gezielt und schnell 
mit alphanumerischen Schlüsseln zugreifen wollen, die nicht 
der logischen Satznummer entsprechen, und Sie Ihre Datei 
nicht in entsprechend sortierter Form halten wollen, so 
empfiehlt sich eine andere Methode. 

Bilden Sie für jeden gewünschten Schlüssel-Begriff bzw. Index 
eine eigene Index-Datei, in der pro Datensatz abgelegt sind 


- jeweiliger Index 
- zugehörige Satznummer 


Diese Datei laden Sie bei Bedarf und zur Pflege ganz in den 
Speicher. Ein Beispiel: 


Die haben als relative Datei Ihre Adressverwaltung angelegt, 
bestehend aus 


- Vorname 

- Name 

— Straße 

- PLZ 

- Wohnort 

- Telefonnummer 


Sowohl nach dem Vornamen, als auch nach dem Namen möchten Sie 
gezielt suchen können. Alsa bilden Sie zwei zusätzliche 
relative Dateien, die als Felder nur den gewünschten 
Schlüsselbgriff, z.B. den Vornamen, und die Satznummer des 
entsprechenden Datensatzes in der Hauptdatei enthalten. 


Die gewünschten Indexdateien sollten Sie jeweils komplett im 
Speicher halten, da dort schnellstmögliche Indexsuche 
erfolgen kann. Wollen Sie z.B. auf den Datensatz zugreifen, 
der als Vornamen "OTTO" hat, so durchsuchen Sie im Speicher 
die entsprechende Indexdatei und greifen anschließend mit der 
gefundenen Satznummer direkt auf den gewünschten Satz Ihrer 
Adressdatei zu. 

Verfolgen Sie nun ein Beispiel: 


Wir nehmen an, es existiert eine Hauptdatei und eine 
Indexdatei für den Namen: 


Hauptdatei: Indexdatei: 

Name Vorname weitere Felder Index Satznr. 
(Name) LB HB 

Walter Karl PES rai Walter ο! OO 

Berger Rainer ο ë s s aaa Berger ο. OO 
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Tietz Klaus REG Tietz 03 00 
Schacht Rolf eanan e e 2 bà O9» 9 a P a e Schacht 04 OO 


Horstner Gustav WWE Nc wee RUM dE Horstner 99 OO 
ëmgeet, 


Die Datei beinhaltet also 27 Datensätze. Bevor mit dem 
Programm gearbeitet werden kann, muß die Indextabelle 
eingelesen werden. Dies kann z.B. eine sequentielle Datei 
sein, die in der mit DIM IT$(99) reservierten Speichertabelle 
eingelesen wird. Die ersten 20 Zeichen eines jeden 
Indextabellen-Platzes stellt den Vornamen dar. Das vorletzte 
Byte (Nr.21) ist das Lowbyte und das letzte Byte (Nr.22) das 
Highbyte der Satznummer. Unter dieses Voraussetzungen kann 
mit folgender Routine ein beliebiger Datensatz aufgesucht 
werden: 


100 INPUT "NAME"; NS 

110 FOR I=1T099 

120 IF LEFT$(IT$,20)=N$THEN 150 

130 NEXT I 

140 PRINT "NAME NICHT GEFUNDEN! ns END 

150 PRINT"DATENSATZ GEFUNDEN!" 

160 OPEN1,8,2,"ADRESSEN,L , "*CHR$ (81) 

170 OPEN 2,8,15 

180 PRINT#2, "P"+CHR$ (2) +MID$ (IT#, 21, 1) +CHR$ (0) 
+CHR$ (1) 

190 INPUT#1,RC$ 


Die Schleife in Zeile 110-130 durchläuft sequentiell die 
Indextabelle nach dem gesuchten Namen, der sich in den linken 
20 Zeichen befindet. Wird der Name nicht gefunden, so wird 
die Schleife verlassen und in Zeile 140 eine entsprechende 
Meldung ausgegeben, bevor das Programm beendet wird. 

Wird in Zeile 120 eine übereinstimmung zwischen Index und 
gesuchtem Namen festgestellt, so wird nach Zeile 150 
verzweigt. Nach Ausgabe der Meldung wird die Adressendatei 
geöffnet (falls sie nicht vorher geöffnet wurde). NAch dem 
öffnen des Befehlskanals wird der Positionierbefehl zur 
Floppy gesendet. Da im vorletzten Byte eines  Indexeintrages 
das Lowbyte der Satznummer enthalten ist, braucht dies 
lediglich als MID$-Befehl eingebaut werden. Das Highbyte ist 
bekanntlich null, wenn die Satznummer 255 nicht 
überschreitet. 

In Zeile 190 wird der Datensatz dann eingelesen und steht zur 
Verfügung. 


Der Zugriff über  Indexdateien stellt ebenfalls eine sehr 
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schnelle und ungemein flexible Form der Dateiorganisation 
dar. Theoretisch können Sie beliebig viele Indexdateien pro 
Hauptdatei anlegen. Allerdings müssen Sie zwei wichtige 
Einschränkungen beachten: 


1. Bei Änderungen in der Hauptdatei, die Schlüsselfelder 
betreffen, müssen auch die entsprechenden Indexdateien 
gepflegt werden. Dies kann, besonders bei mehreren 
Indexdateien, sehr aufwendig sein. 


2. Zahl und Größe der Indexdateien, die Sie zum Zweck des 
schnellen Zugriffs im Speicher Ihres Computers halten, 
werden durch den verfügbaren Speicherplatz begrenzt. 


1.5.9  Andern von Records 
Der logische Ablauf zum Ändern eines Records ist folgender: 


1. Einlesen des Records 

2. "Splitten" des Records in seine Felder 
3. Ändern der entsprechenden Felder 

4. Zusammenfügen der Felder zu einem Record 
3. Zurückschreiben des Records 


Im Abschnitt 1.5.5 haben Sie einige Records in die Datei 


"TEST. REL" geschrieben. Diese Datei hat folgende 
Eigenschaften: 

Recordlänge: 41 Bytes 

Anzahl Records: 100 

Anzahl Felder: 4 

Länge, Position Feld 1: 10, 1-10 

x "xs Feld 2: 5, 11-15 

" u 2 Feld 3: 10, 16-15 


i ç. Feld 4: 15, 26-40 
abschließendes RETURN?: ja, Position 4i 


Eine derartige Dateibeschreibung sollten Sie für jede Ihrer 
Dateien anlegen. Dies ist z.B. sehr wichtig, wenn andere 
Programme auf diese Daten zugreifen sollen. 

In dieser Datei sollen nun Records geändert werden. Das 
folgende Programm erfüllt diese Aufgabe: 


100 REM ======================= 

110 REM VORBERE I TUNGEN 

120 REM ======================= 

130 BL$-" Ee 

140 OPEN 1,8,2,"TEST.REL,L,"+CHR$ (41) 
150 OPEN 2,8,15 

160 REM ======================= 

170 REM RECORD EINLESEN 

180 REM ======================= 
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190 PRINT CHR# (147) 

200 INPUT"RECORDNUMMER (1-100): "sRN 

205 IF RN<1 OR RN>100 THEN PRINT CHR$ (145) ; : GOTO200 
210: PRIN "+ Fer een S 

220 PRINT#2,"P"+CHR$ (2) +CHR$ (RN) *CHR$ (O) *CHR$ (1) 
230 INPUT#1,RC$ 

240 IF ASC(RC$)<>255 THEN 270 

250 PRINT "RECORD UNBESCHRIEBEN" 

260 GOTO 650 

270 REM ======================= 

280 REM RECORD AUFBEREITEN 

290 REM ======================= 

300 F4*(C1)-MID$ (RC$,1,10) 

310 F$(2)=MID$ (RC$,11,5) 

320 F#(3)=MID$ (RC$,16,10) 

330 F$(4)-MID$ (RC$,26,15) 

340 REM ======================= 

350 REM FELDER ANZEIGEN 

360 REM ======================= 

370 PRINT CHR$ (147) 

380 FOR I-1 TO 4 

390 PRINT"FELD"; Is": ";F$(I) 

400 NEXT I 

410 EREM ee se 

420 REM ======================= 

430 REM FELDER ANDERN 

AAO REM ======================= 

450 PRINT"WELCHES FELD SOLL GEÄNDERT WERDEN (1-4) 7" 
460 GET X$:IF X#<"1" OR X$>"4" THEN 460 
470 INPUT"NEUER INHALT = ";F£(VAL(X$)) 

480 PRINT"RECORD IST GEÄNDERT" 

490 PRINT"NOCH ÄNDERUNGEN IN DIESEM RECORD (J/N)7?" 
3900 GET X#: IF X$<>"J" AND X$«»"N" THEN 500 
910 IF X#="J"THEN 340 

£20 REM ======================= 

330 REM FELDER VERKETTEN 

990 RCS=F$(1)+LEFT# (BL$,10-LEN(CF$ (12)) 

560 RC$-RCf£-«F$f$(2)*LEFT$ (BL$,5-LEN(F$((2))) 
970 RC$=RC$+FF (3) +LEFTS CBL$,10-LEN(CF$ (3) >) 
980 RC#=RC$+F $F (4) +LEFT# (BLY, 15—-LEN (FS (4) ) ) 
590 REM ======================= 

600 REM RECORD ZURUCKSCHREIBEN 

610 REM ======================= 

620 PRINT#1,RC# 

630 REM ======================= 

640 REM PROGRAMM ENDE? 

650 REM ======================= 

660 FRINT"NOCH ANDERUNGEN IN DER DATEI (J/N)?" 
670 GET X$:IF X$<>"J" AND X$<>"N" THEN 470 
680 IF X#="J" THEN 160 

690 CLOSE 1: CLOSE 2: END 


Nachdem Sie dieses Programm eingegeben und gestartet haben, 


können Sie nun beliebige Records ändern. Diese Records müssen 
allerdings mit dem im Abschnitt 1.5.5 enthaltenen Programm 
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erfasst worden sein! 

Dieses Anderungsprogramm prüft die neuen Feldeingaben nicht 
auf korrekte Länge, sondern schneidet die überlänge ab. 

Die wesentlichen Befehlsfolgen in diesem Programm sind in den 
entsprechenden Abschnitten bereits ausführlich beschrieben 
worden. 


1.5.10 Ergänzen einer relativen Datei 


Jede relative Datei hat eine vom Anwender festgelegte 
Recordzahl. Diese kann beim Einrichten der Datei festgelegt 
werden, indem der letzte Record mit dem Wert CHR#(255) 
beschrieben wird. Dieses Beschreiben des letzten Records hat 
zu Folge, daß jeder Record unterhalb dieser Höchstgrenze 
ebenfalls mit CHR$(255) beschrieben, also zum Beschreiben 
freigegeben wird. 

Die zweite Möglichkeit ist, daß die Datei beim Einrichten 
nicht in Ihrem vollen Umfang freigegeben wird. Wird z.B. der 
Record mit der Nummer 3 in die neue Datei geschrieben, so 
wird gleichzeitig der Record 1 und 2 freigegeben, also mit 
HRZ (255) beschrieben. Ein weiteres Beschreiben des 90. 
Records hat dann zur Folge, daß gleichzeitig die Records 4 


bis 89 freigegeben werden, usw. Legen Sie also beim 
Einrichten der Datei nicht den letzten Record fest, so ist 
beim anschließendem Beschreiben der Datei mit einer 


wesentlich längeren Verarbeitungszeit zu rechnen. Es ist also 
sinnvoll, die Datei zu Anfang in Ihrem vollen Umfang 
freizugeben. 

Eine eingerichtete, relative Datei kann jederzeit, sofern es 
die Diskettenkapazität erlaubt, vergrößert werden. Dazu wird 
der neu ermittelte, letzte Record mit CHR#(255) beschrieben. 
Gleichzeitig werden dann alle Records zwischen dem alten und 
dem neuen Dateiende freigegeben. 

Ein Schreibzugriff auf eine relative Datei, der über das 
Dateiende hinausgeht, hat also keinen Fehler zur Folge. Wenn 
die Diskette diese Erweiterung ermöglicht, wird die Datei 
lediglich vergrößert. Ist ein Erweitern der Datei aufgrund 
mangelner Diskettenkapazität nicht möglich, so wird der 
Fehler "FILE TO LARGE" dem Fehlerkanal der Floppy übergeben. 
Ein das Dateiende überschreitender Lesezugriff jedoch 
verursacht den Fehler "RECORD NOT PRESENT" im 
Floppy-Fehlerkanal. 


1.5.12 "HAUSHALTSBUCH" mit relativer Datenspeicherung 


Ein Beispiel einer kompletten Problemlösung mit relativer 
Datenspeicherung bietet Ihnen einen guten Einblick in die 
Organisation von relativen Dateien. Es soll Ihnen 
verdeutlichen, wie man die Idee zu einem Programm realisiert. 
Gleichzeitig dieses Programm für fast Besitzer dieses Buches 
einsetzbar ist. ; 
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Die Idee, ein Computer-Haushaltsbuch zu führen ist nicht 
gerade neu. Viele Programmierer haben sich mit diesem Problem 
beschäftigt. Doch die wenigsten lösten dieses mit Hilfe der 
relativen Speicherung. Da die einzelnen Konten eines 
Haushaltsbuches numeriert werden, eignen sich diese Nummern 
sehr gut als Schlüssel zu dem entsprechenden Record. Die 
Kontonummer stellt also gleichzeitig die Recordnummer dar. 
Die nächste überlegung war, wie ein Record eines Kontos 
aufgebaut sein muß. Um die Konten nicht nur mit Nummern, 
sondern auch mit Klartext-Bezeichnung zu versehen, ist das 
erste Feld des Records der Kontenname. Wir haben diesen Namen 
auf 20 Zeichen festgelegt. 

Da für jedes Jahr eine Datei geführt werden soll, sind 12 
Felder notwendig, um die Kontensummen im Record 
unterzubringen. Diese Summenfelder sind jeweils 10 Zeichen 
groß. Diese Kontensummen werden als Strings abgelegt, die mit 
Hilfe des VAL-Befehls in numerische Variablen umgesetzt 
werden, um sie zu aktualisieren. Der Record umfaßt somit 141 
Zeichen (20 für Name, 12110 für Monatssummen und 1 für 
RETURN) 


Der Aufbau des Records: 


Feld Länge Position 
Kontenname 20 1-20 
Summe Januar 10 21-30 
Summe Februar 10 31-40 
Summe November 10 121-130 
Summe Dezember 10 131-140 


C ET, 


Wir haben die maximale Anzahl der Konten auf 20 begrenzt. 
Somit umfaßt eine Jahresdatei 20 Records mit je 141 Bytes. 


Diese Dateistruktur war Grundlage jeder weiteren 
überlegungen. 

Die nächste überlegung war, welche Funktionen dieses Programm 
bieten sollte. Dabei legten wir uns auf folgende 


Programmteile fest: 
* Konten anlegen 
x Buchen 
* Kontenübersicht 
* Kontennamen ausgeben 
x Monatsübersicht 


* Jahresübersicht 
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Konten anlegen: 

Dieses Unterprogramm errichtet die Datei für ein Jahr. Es 
wird die Anzahl der Konten und deren Namen abgefragt. Die 
jeweiligen Records werden dann mit den Kontennamen und den 
auf O gesetzten Summenfeldern angelegt. Sollte eine Datei 
bereits unter dem zu Anfang bestimmten Namen existieren, kann 
diese gelöscht und neu eingerichtet werden. 


Buchen: 

Nach Eingabe der Nummer des zu buchenden Kontos wird 
bestimmt, ob es sich um ein Einnahme oder Ausgabekonto 
handelt. Das Konto "GEHALT" z.B. ist ein Einnahmekonto und 
das Konto "MIETE" ein Ausgabekonto. 

Danach wird der alte Stand des Kontos ausgegeben. Nun buchen 
Sie den entsprechenden Betrag der immer positiv ist. Sollte 
es sich um eine Korrekturbuchung handeln, so geben Sie einen 
negativen Betrag an. 

Nun wird der neue Stand ausgegeben und eine erneute Buchung 
ermöglicht. 


Kontenübersicht 

Nach Eingabe der Kontonummer werden die Summen der 12 Monate 
somwie die Gesamtsumme des Jahres ausgegeben. Somit erhalten 
Sie einen überblick über die Ausgaben bzw. Einnahmen eines 
Kontos in einem Jahr. 


Kontennamen ausgeben 

Jedes Konto wird mit seiner Nummer bestimmt. Sollte einmal 
eine Nummer in Vergessenheit geraten, so besteht die 
Móglichkeit, in diesem Unterprogramm alle Konten mit Nummer 
und entsprechendem Namen auszugeben. 


Monatsübersicht: 

Hier werden die Einnahmen bzw. Ausgaben aller Konten in einem 
Monat ausgegeben. Der Monatssaldo aller Konten schließen 
dieses Unterprogramm ab 


Jahresübersicht: 

Dieses  Unterprogramm zeigt Ihnen die Jahressummen aller 
Konten und den Jahressaldo. Dieses Auflisten nimmt etwas Zeit 
in Anspruch, da alle Monatsfelder jedes Records gelesen und 
aussummiert werden muß. Es wird also auf die gesamte Datei 
zugegriffen. 
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Wir glauben, alle wesentlichen Anforderungen an ein 
derartiges Frogramm erfüllt zu haben. Sollten Sie aber die 
ein oder andere Idee einer Erweiterung haben, so studieren 
Sie das Programm mit der anschließenden Dokumentation. Dann 
werden Ihnen Eingriffe in das Programm zur individuellen 
Anpassung keine Probleme bereiten. 


Das Listing des Programms: 


100 POKES3280, 2: POKES3281 ,2: PRINTCHR$ (158) ;: 
BL 55" "sDIMS (12) 
110 GOSUB2050 
120 INPUT"AKTUELLES JAHR : ";J$ 
130 IFJ$«"1985"QRJ$»"1999"THENPRINTCHR$ (145) ; : GOTO120 
140 GOSUB2050 
150 PRINT"FUNKTIONSAUSWAHL = " 


160 PRINT"———-————————— "sPRINT 

170 PRINT" -1- KONTEN ANLEGEN" 

180 PRINT" -2- BUCHEN" 

190 PRINT" -3- KONTENUEBERSICHT" 

200 PRINT" —4— KONTENNAMEN AUSGEBEN" 
210 PRINT" -5- MONATSUEBERSICHT " 

220 PRINT" —6- JAHRESUEBERSICHT":PRINT 
230 PRINT" -0- PROGRAMMENDE" 


240 GET X$:IF X#<"0" OR X#>"&" THEN 240 

250 IF X#<>"0"THEN270 

260 END 

270 ON VAL (X#)GOSUB 290,540,920, 1160,1370,1720 
280 GOTO140 

290 REM ==================== 

300 REM KONTEN ANLEGEN 

310 REM ==================== 

320 GOSUB2050 

330 PRINT"ACHTUNG' EINE EVTL. DATEI DIESES JAHRES" 
340 PRINT"WIRD GELOESCHT !' "PRINT 

350 PRINT"SICHER (J/N)?" 

360 GETX#: IFX#< >"J"AND X#<>"N"THEN 360 

370 IF X#="J" THENS90 

380 CLOSE1:CLOSE2: RETURN 

390 OPEN2,8,15,"S:KONTEN"+J$ 

400 OPEN1,8,2, "KONTEN"+J$+",L,"+CHR$ (141) 
410 GOSUB2050 

420 INPUT"WIEVIELE KONTEN (1-20): "$;KZ 

430 PRINT 

440 IFKZ<10RKZ>ZOTHENPRINTCHR®$ (145) ; e GOTO420 
450 FORI=1TOKZ 

460 PRINT"NAME KONTO ΝΒ. "5:11": "e 

470 INPUTKN# 

480 IFLEN(KN$) >2OTHENPRINTCHRS (145) e 2 GOTO460 
490 RC$-KN$-LEFT$ (BLS, 20—LEN (KN$) ) 

900 FORX=1T012 

9210 RC$-RC$-4STR$ CO) +LEF TS (BL$,8) 

320 NEXTX 

530 PRINT#1,RC$ 

540 NEXT I 
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330 CLOSE1:CLOSE2: RETURN 

540 REM ================= 

570 REM BUCHEN 

580 REM ================= 

990 GOSUB2050 

600 INPUT"KONTONUMMER " ; KN 

610 IFKN< 1ORKN>20THENPRINTCHR$ (145); : GOTQ600 
620 GOSUB2140 

630 PRINT"—-——————— V = de 
640 PRINT"NR."5KN;5" — "3 KN$ 

650 PRINT"—-————————Y r P"-V S 
660 PRINT"EINNAHME ODER AUSGABE (E/A)?" 
670 PRINT"—————————— 7 > — M 
680 GETX#: IFX#< ?"E"ANDX$« >"A"THENGBO 

690 INPUT"MONAT (1-12) ς "eh 

700 IFM«10RM»512THENPRINTCHR$ (145) ; : GOTO690 
710 PRINT"——————————————— P UW " 


720 PRINT"ALTER STAND : "SSOMD 

730 PRINT"---------------------------- " 
740 INPUT"BUCHUNGSBETRAG : ";BB 

750 ΡΗΙΝΤ'"--------------------------------- g 


760 IFX$-"E"THEN S(M)=S(M)+BB: ΘΟΤΟΖΒΟ 
770 S(M)=S(M)-BB 

780 PRINT"NEUER STAND : "sSOUD 

790 PRINT"-~--------------------------- z 
800 RC$-KN$-LEFT$(BL$,20-LEN (KN$) ) 

810 FORI=1T012 

820 S$-STRf(S(CI)) 

850 RC#=RC#+S$+LEF TS (BLS, 10-LEN(S#) ) 
B40 NEXTI 

850 PRINT#2, "P"+CHR$ (2) +CHR# (KN) +CHR$ (O) +CHR$ (1) 
860 PRINT#1,RC$ 

870 CLOSE1:CLOSE2 

880 PRINT"WEITERE BUCHUNGEN (J/N)?" 

890 GETX$: IFX$«»"J"ANDX$« »"N"THENB89O 
900 IFX$-"J"THENGOSUBZOSO: GOTOA0O 

910 RETURN 

920 REM ==================== 

730 REM KONTENUEBERSICHT 

940 REM ==================== 

950 GOSUB2050 

960 INPUT"KONTONUMMER =: ";KN 

970 IFKNX10RKN220THENFRINTCHR$ (145) ; : GOTQ960 
980 GOSUB2140 

990 GOSUB2050: PRINTCHR$ (145) ; CHR$ (145) ; 
1000 PRINT"—-—-—-————————— ή” τμ ήσης-θηα» T 


1010 PRINT"NR.";KN;" — "sKN$ 

1020 PRINT"--—---------------------- e 
1030 PRINT"MONAT SALDO" 

1040 PRINT"------------------------- ñ 
1050 85-0 


1060 FORI=1T012 

1070 PRINTI; TAB(8) 5S (I) 

1080 GS=6$+5 (1) 

1090 NEXTI 

1100 PRINT"—————— " 
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1110 PRINT"GESAMT";TAB(8);6S 

1120 PRINTTAB (B) ; "=======" 

1130 PRINT"WEITER MIT RETURN" 

1140 INPUTX$ 

1150 CLOSE1: CLOSE2: RETURN 

1160 REM ==================== 

1170 REM KONTENNAMEN AUSGEBEN 

1180 REM ==================== 

1190 GOSUB2050 

1200 OPEN1,B,2,"KONTEN"+J$+",L,"+CHR$ (141) 
1210 OPEN2,8,15 

1220 I=1 

1250 PRINT#2, "P"+CHR$ (2) +CHR¢ CI) *CHR$ (O) *CHR$ (1) 
1240 RC#="" 

1250 FOüRX-1TO2O 

1260 GET#1,X# 

1270 RC$-RC$-4X$ 

1280 NEXTX 

1290 INPUT#2,X 

1300 IFX=SOTHEN 1340 

1320 PRINTI;" -  ";RC$ 

1330 I=I+1:GOTO1230 

1340 PRINT"WEITER MIT RETURN" 

1350 INPUTX# 

1560 CLOSE1: CLOSE2: RETURN 

1370 REM ——————————————— 

1380 REM  MONATSUEBERSICHT 

1390 REM —————————————— 

1400 GOSUB2050 

1410 INPUT"MONAT : ";M 

1420 GOSUB2050 

1430 PRINT"—-—-——————————— n === s 
1440 PRINT"NR. NAME BETRAG" 
1450 PRINT" d 
1460 OPEN1,8,2, "KONTEN"+J$+" ,L,"4CHR$ (141) 
1470 OPEN2,8,15 

1480 GS=0 

1490 FOR KN=1T020 

1500 KN$="",5="" 

1510 PRINT#2,"P"+CHR$ (2) *CHR$ (KN) +CHR$ CO) *CHR$ (1) 
1520 FOR I=1T020 

1530 GET#1,X# 

1540 KN$=KN$F+X$ 

1550 NEXTI 

1560 INPUT#2,F 

1570 IFF<>SOTHEN 1590 

1580 GOTO1670 

1590 PRINT#2, "P"+CHR$ (2) +CHR (KN) +CHR$ (O) * CHR$ (20+ (M—1) #10) 
1600 FOR I=1T010 

1610 GET#1,X$ 

1620 S#=S$+X$ 

1630 NEXT I 

1640 GS=GS+VAL (S$) 

1650 PRINT KN; TAB(4) ;KN$5 TAB(26) 58$ 

1660 NEXT KN 

1670 PRINT"—-——————————— s S 


ZO 


1680 
1670 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 


PRINT "GESAMTSALDO" ; TAB (26) ; STR# (GS) 
PRINTTAB (26) ; "=======" 

PRINT"WEITER MIT RETURN"; 
INPUTX#: CLOSE1: CLOSE2: RETURN 


REM =================== 
REM JAHRESUEBERSICHT 
REM =================== 
GOSUB2050 


OPEN1 ,8,2, "KONTEN"+J$+" ,L,"+CHR$ (141) 
OPEN2,8,15 


FOR KN=1T020 
PRINT#2, "P"+CHR$ (2) +CHR$ (KN) +CHR$ (0) +CHRE (1) 
RC#= “un 

FORI=1T0140 

GET#1,X$ 

RC$=RC$+X$ 

NEXTI 

INPUT#2,F:IFF=50THEN1980 

KN$=LEFT$ (RC£ , 20) 

JS-0 

FORI-1TO10 

JS=JS+VAL (MID$ (BCE, 20+ (I-1) #10,10)) 

NEXTI 

GS=6S+JS 

PRINTKN; TAB (4) ;KN$5 TAB (26) ; JS 

NEXTKN 


CLOSE1: CLOSE2 
PRINT"GESAMTSALDO" ; TAB(26) 5 GS 
PRINTTAB (26) ; "=======" 
PRINT"WEITER MIT RETURN" 
INPUTX$ 

RETURN 


REM ==================== 

PRINTCHR$ (147); 

PRINTTAB (4) 5 "=============================== 
PRINTTAB(4);"H AU SH AL T S BU CH "+J$ 
PRINTTAB (4) 5 "=============================== 
PRINT:PRINT 

RETURN 


OPEN1 ,8,2, "KONTEN"+J$+",L, "+CHR$ (141) 
OPEN2,8,15 

PRINT#2, "P"+CHR$ (2) +CHR$ (KN) *CHR$ (O) +CHR$ (1) 
RC$z cn at 

FORI=1T0140 

GET#1,X$ 

RC$-RC$4X$ 
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2240 NEXT I 

2250 INPUT#2,F 

2260 IFF<>50THEN 2300 

2270 PRINT"JAHRESDATEI ODER KONTO NICHT GEFUNDEN! ": PRINT 
2280 PRINT"WEITER MIT RETURN" 

2290 CLOSE1:CLOSE2: RETURN 

2500 KN$-LEFT$(RC$,20) 

2510 65=0 

2520 FORI=1TO12 

2330 S(I)=VAL (MIDF(RC$,20+(1-1)%*10,10)) 
2340 6G5=6$+5 (I) 

2350 NEXT I 

2360 RETURN 


Die Dokumentation des Programms: 


Vorspann: 

100 Bildschirm- und Zeichenfarbe setzen; Leerzeichen- 
string definieren; Variable für Kontensummen 
dimensionieren. 

110-130 Programmkopf anzeigen und aktuelles Jahr einlesen. 

140-280 Programmfunktionen anzeigen und Auswahl einlesen; 


entsprechendes Unterprogramm aufrufen. 


Konten anlegen: 
390-400 Evtl. vorhandene Datei dieses Jahres löschen und 
neue Datei eröffnen. 


480 Eingebenen Kontennamen in der Position 1-20 des 
Records RC$ bereitstellen. 

900-540 Monatssummen auf Null setzen und als 
Stringvariablen im Record bereitstellen. 

530 Record mit abschließendem RETURN übertragen. RETURN 


wird standardmäßig von PRINT gesendet. 


Buchen: 

570 Routine "Konto einlesen" aufrufen. Diese Routine 
stellt die Monatssummen des Kontos in den Variablen 
S(1) bis S(12) zur Verfügung. 

800 Kontenname in Record übertragen. 

810-840 Kontosummen in Record übertragen. 


850-840 Record übertragen. 


Kontenübersicht: 

980 Gewünschtes Konto einlesen und Monatssummen in den 
Variablen S(1) bis S(12) bereitstellen. 

1050-1090 Monatssummen anzeigen und in Gesamtsumme (G9) 
aufaddieren. 

1110 Gesamtsumme anzeigen. 
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Kontennamen ausgeben: 

1220 Kontonummer auf Anfangswert setzen. 

1230 Auf Record des entsprechenden Kontos positionieren. 

1240-1280 Kontoname aus Record in RC$ einlesen. 

1290-1300 Wenn RECORD NOT PRESENT im Fehlerkanal (Fehler 50), 
dann Routine abbrechen. 

1320 Kontonummer und Name ausgeben. 


Monatsübersicht: 

1490-1660 Schleife zum Einlesen aller Konten. 

1510 Auf Record positionieren. 

1520-1550 Kontenname einlesen. 

1560-1580 Feststellen, ob Konto vorhanden; Abbruch wenn nicht 
alle 20 Konte definiert wurden. 


1590 Positionieren auf Summenfeld des gewünschten 
Monats. 

1600-1630 Einlesen der Monatssumme. 

1640 Monatssumme in Gesamtsumme aufaddieren. 

1650 Kontonummer, Kontoname und Monatssumme ausgeben. 

1680 Gesamtsaldo (Gesamtsumme) ausgeben. 


Jahresübersicht: 


1820-1970 Schleife zum Einlesen aller Konten. 


1830 Auf Record positionieren. 
1850-1880 Gesamten Record in RC$ einlesen. 
1890 Testen, ob RECORD NOT PRESENT. 
1900 Kontoname aus Record holen. 


1920-1940 Monatssummen lesen, in numerischer Form umwandeln 
und in Jahressumme (JS) aufaddieren. 


19750 Jahressumme (JS) in Gesamtsumme (GS) aufaddieren. 
1960 Kontonummer, Kontoname und Jahressumme ausgeben. 
2000 Gesamtsaldo (Monatssaldo) ausgeben. 


Konto einlesen: 

2170 Auf in KN übergebenen Record positionieren. 

2210-2240 Record in RC# einlesen. 

2250-2260 Testen, ob RECORD NOT PRESENT. 

2300 Kontoname aus Record lesen. 

2320-2350 Monatssummen aus Record lesen, in numerischer Form 
umwandeln und der Tabelle S(1) bis S(12) übergeben. 


73 


1.6 Die Fehlermeldungen der Floppy und ihre Ursachen 


Machen Sie bei der Bedienung der Floppy einen Fehler oder 
tritt ein Disketten- oder sonstiger Fehler auf, so 
signalisiert dies die Floppy durch Blinken der roten 
Leuchtdiode (LED) am Laufwerk. Die LED blinkt solange, bis 
Sie die Fehlermeldung der Floppy gelesen haben oder bis Sie 
einen neuen Befehl zur Floppy geschickt haben. Als erstes 
wollen wir sehen, wie man die Fehlermeldung der Floppy 
einlesen kann. 


Dazu muß der Fehler- bzw. Kommandokanal unter der 
Sekundäradresse 15 geöffnet sein: 


100 ΠΡΕΝ 15,8,15 
110 INPUTS15, A,B¢,C,D 
120 PRINT A,B$,C,D 


War keine Fehlerbedingung aufgetreten, so führt dies zur 
Ausgabe von 


O DK. ο ο 


Dabei bedeutet die erste Zahl (A) die Fehlernummer, in 
unserem Falle 0; kein Fehler. Als nächstes folgt die 
Fehlermeldung im Klartext (Variable B$). Die Variablen C und 
D enthalten die Track- und Sektornummer, bei denen der Fehler 
aufgetreten ist, sofern dies von der Fehlerart her möglich 
ist (hauptsächlich bei Hardware-Fehlern und blockorientierten 
Befehlen). 


Eine analoge Routine gibt die Fehlermeldung zusammenhängend 
wieder: 


100 OPEN 15,8,15 
110 GETS15,0$ : PRINT A$; : IF ST<>64 THEN 110 


00, 0K,00,00 


Hier werden solange Zeichen vom Fehlerkanal geholt und 
ausgegeben, bis das Ende erkannt wird (Status = 64). Dies 
gibt die Fehlermeldung genauso wieder, wie dies mit dem BASIC 
4.0 Befehl 


PRINT DS# 

möglich ist. Hier sind DS$ und DS reservierte Variablen, die 
die komplette Fehlermeldung bzw. die Fehlernummer enthalten. 
Jeder Bezug auf diese Variablen gibt den Fehlerstatus der 


letzten Diskettenoperation wieder. 


Auf den nächsten Seiten sind nun alle möglichen Fehler- 
meldungen in Detail beschrieben. 
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00, UE OO e OO 
Diese Meldung tritt dann auf, wenn die letzte Disketten- 
operation fehlerfrei verlaufen ist oder falls nach dem 
Lesen der letzten Fehlermeldung keine Daten oder kein 
Befehl zur Floppy geschickt wurden. 


O1,FILES SCRATCHED,XX,00 

Dies ist die Rückmeldung nach einem SCRATCH-Befehl. Die 
Zahl XX gibt dabei an, wieviel Dateien gelöscht wurden, da 
z.B. durch die Verwendung des Jokers mit einem Befehl mehr 
als eine Datei gelöscht werden kann. Da dies keine 
eigentliche Fehlermeldung ist, blinkt dabei auch nicht die 
LED, Arbeiten Sie mit dem BASIC 4.0 Befehl "SCRATCH', so 
wird die Rückmeldung automatisch geholt und angezeigt. 


20,READ ERROR,TT,SS 
Dieser Fehler bedeutet, daß der ‘Header’ (Kopf} eines 
Blocks nicht gefunden wurde. Dabei handelt es sich meist 
um eine defekte Diskette. TT und SS bezeichnen hier Track 
und Sektor, bei dem der Fehler aufgetreten ist. Maßnahmen: 
Defekte Diskette auswechseln. 


21,READ ERROR,TT,SS 

Auch dies ist ein Lesefehler. Hier wurde zu einem Block 
die entsprechende SYNC  (Synchron-) Markierung nicht 
gefunden. Als Ursache hier kann keine oder eine nicht 
formatierte Diskette sein. Dieser Fehler kann auch auf 
einen dejustierten Schreib/Lesekopf hindeuten. Maßnahmen: 
Entweder Diskette austauschen, formatieren oder 
Schrieb/Lesekopf justieren lassen. 


22,READ ERROR,TT,SS 
Diese Fehlermeldung bedeutet einen Prüfsummenfehler im 
Header eines Datenblocks, der durch fehlerhaftes Schreiben 
eines Blocks verursacht sein kann. 


23,READ ERROR,TT,SS 
Bei diesem Lesefehler konnte ein Datenblock zwar in den 
DOS-Puffer gelesen werden, es wurde jedoch ein Prüf- 
summenfehler festgestellt. Ein oder mehrere Datenbytes 
sind fehlerhaft. Maßnahmen: Files so weit wie möglich auf 
eine andere Diskette "retten". 


24,READ ERROR,TT,SS 
Auch bei dieser Fehlermeldung handelt es sich um einen 
Prüfsummenfehler entweder im Datenblock oder im voraus- 
gehenden Datenheader. Es wurden fehlerhafte Bytes ein- 
gelesen. Maßnahmen: wie Fehler 23. 


25,WRITE ERROR,TT,SS 
Dieser Fehler ist eigentlich ein VERIFY ERROR. Nach jedem 
Schreiben eines Datenblocks werden die Daten noch einmal 
gelesen und mit den Daten im Puffer verglichen. Bei 
fehlender übereinstimmung wird. dieser Fehler gemeldet. 
Maßnahmen: Befehl, der den Fehler verursachte wiederholen. 
Falls kein Erfolg, dann entsprechenden Datenblock mit 
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BLock-Allocate für weitere Bewtzung sperren. 


26,WRITE PROTECT ON,TT,5S 
Es wurde der Versuch unternommen, auf eine Diskette zu 
schreiben, die einen Schreibschutzaufkleber enthält. 
Maßnahmen: Schreibschutz entfernen. 


27,READ ERROR,TT,SS 
Hier handelt es sich um einen Prüfsummenfehler im Header 
eines Datenblocks. Maßnahmen: Befehl wiederholen oder 
Block sperren. 


28,WRITE ERROR,TT,SS 


Nach dem Schreiben eines Datenblocks wird die SYNC 
(Synchron-) Zeichenfolge des nächsten Datenblocks nicht 
gefunden. Maßnahmen: Diskette neu formatieren oder 
austauschen. 


29,DISK ID MISMATCH,TT,SS 
Die ID (zweistellige Diskettenidentifikation?) im 
DOS-Speicher stimmt nicht mit der ID auf der Diskette 
überein. Die Diskette wurde entweder nicht initialisiert 
oder es liegt ein Fehler im Header eines Datenblocks vor. 
Maßnahmen: Diskette initialisieren. 


30,9YNTAX ERROR,OO,O0O 
Ein Befehl, der über den Kommandokanal geschickt wurde, 
kann vom DOS nicht interpertiert werden. Maßnahmen: Befehl 
überprüfen und korrigieren. 


31,5YNTAX ERROR ,O0,00 
Ein Befehl wird vom DOS nicht erkannt, z.B.  BACKUP-Befehl 
(Duplicate) auf der 1541. Maßnahmen: 
Ausweichbefehl/programm verwenden. 


IZ, SYNTAX ERROR , 00,00 
Der über den Kommandokanal gesandte Befehl ist länger als 
40 Zeichen. Maßnahmen: Befehl verkürzen. 


33,S5SYNTAX ERROR,00,00 
Beim OPEN- oder SAVE-Befehl wurde der Joker  ('*', ne) 
unzulässig verwendet. Maßnahmen: Joker entfernen. 


34,5YNTAX ERROR,OO,O00 
Das DOS kann den Filenamen in einem Befehl nicht finden, 
weil z.B. der Doppelpunkt ‘:° nach dem Befehlswort 
vergessen wurde. Mafinahmen: Befehl überprüfen. 


39,FILE NOT FOUND,OO,00 
Benutzerprogramm vom Typ 'USR' zum automatischen Ausführen 
wurde nicht gefunden. Maßnahmen: Filenamen überprüfen. 


9O,RECORD NOT PRESENT ,00,00 
Bei einer relativen Datei wurde ein Datensatz  ange- 
sprochen, der nocht nicht geschrieben wurde. Beim 
Schreiben eines Datensatzes ist dies kein  eigentlicher 
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Fehler, sondern weist nur darauf hin, daß ein neuer 
Datensatz angelegt wird. Sie können diese Fehlermeldunge 
vermeiden, wenn Sie beim Anlegen einer relativen Datei 
direkt in den Datensatz mit der höchsten Nummer CHR$ (255) 
schreiben. Bei weiteren Zugriffen kommt dieser Fehler dann 
nicht mehr vor. 


51,DVERFLOW IN RECORD,00,00 
Beim Schreiben eines Datensatzes in eine relative Datei 
ist die Anzahl der Zeichen (einschließlich des Carriage 
Return) größer als die Datensatzlänge der Datei. Die 
überzähligen Zeichen werden ignoriert. 


SZ,FILE TOD LARGE,00,00 
Die Datensatznummer einer relativen Datei ist zu groß; für 
das Anlegen dieses Datensatzes reicht die freie Dis- 
kettenkapazität nicht mehr aus. Maßnahmen: Andere Diskette 
verwenden oder Recordanzahl veringern. 


60,WRITE FILE OPEN,OO,O00 
Es wurde versucht, eine Datei zum Lesen zu öffnen, die 
beim Schreiben nicht geschlossen wurde, weil z.B. die 
Diskette aus dem Laufwerk genommen wurde, ehe die geöff- 
nete Datei geschlossen wurde. Maßnahmen: Modus "RH im 
OPEN-Befehl zum Auslesen dieser Datei verwenden. 


61,FILE NOT OPEN, OO e OO 
Es wurde eine Datei angesprochen, die nicht geöffnet war. 
Maßnahmen: Datei öffnen oder Dateiname überprüfen. 


62,FILE NOT FOUND,„O0,00 
Es wurde versucht, ein Programm zu laden oder eine Datei 
zu öffnen, die nicht auf der Diskette existiert. 
Maßnahmen: Filename überprüfen. 


63,FILE EXISTS,00,00 
Der Versuch, eine neue Datei mit einem Namen anzulegen, 
der schon auf der Diskette existiert, führt zu dieser 
Fehlermeldung. Maßnahmen: Anderen Filenamen oder 
Klammeraffe verwenden. 


64,FILE TYPE MISMATCH,00,00 
Der Dateityp beim öffnen einer Datei stimmt nicht mit dem 
Dateityp im Directory überein. Maßnahmen: Filetyp 
korrigieren. 


65,N0 BLOCK,TT,SS 

Diese Fehlermeldung wird beim BLOCK-ALLOCATE Befehl 
ausgegeben, wenn der zu belegende Block nicht mehr frei 
war. Das DOS sucht in diesem Falle selbsttätig einen 
freien Block mit höherer Sektor- und/oder Tracknummer und 
gibt diese Werte als Track- und Sektornummer der 
Fehlermeldung aus. Ist kein Block mit größerer Nummer mehr 
frei, wird zweimal O ausgegeben. 


66, ILLEGAL TRACK OR SECTOR,TT,SS 


77 


Wenn man bei den Blockbefehlen sich auf nicht existierende 
Blocks bezieht, wird diese Fehlermeldung ausgegeben. 


67,ILLEGAL TRACK OR SECTOR,TT,SS 
Die Track-Sektor-Verkettung einer Datei zeigt auf einen 
nicht existierenden Track oder Sektor. 


70,NO CHANNEL „00,00 
Es wurde versucht, mehr Dateien zu öffnen als Kanäle 
vorhanden sind oder ein Direktzugriffskanal ist schon 
belegt. 


71,DIR ERROR,TT,SS 
Die Anzahl der freien Blocks im DOS-Speicher stimmt mit 
dem Bitmuster der BAM nicht überein. Evtl. wurde die 
Diskette nicht initialisiert. 


72,DISK FULL,OO,OO 
Auf der Diskette sind nur noch weniger als 3 Blocks frei 
oder die maximale Anzahl an Directoryeinträgen wurde 
erreicht (144 auf der VC 1541). 


73,CBM DOS V2.6 1541,00,00 
Diese Meldung erscheint als Einschaltmeldung der VC 1541. 
Als Fehlermeldung tritt sie auf, wenn versucht wird, auf 
eine Diskette zu schreiben, die nicht mit der gleichen 
DOS-Version formatiert wurde, z.B. mit dem Vorläufer der 
CBM 4040, der CBM 3040 (DOS Version 1.0). 


Zä, DRIVE NOT READY,00,00 
Wenn man versucht, die Floppy anzusprechen, ohne daß eine 
Diskette im Laufwerk liegt, erhält man diese Fehler- 
meldung. 


75,FORMAT SPEED ERROR,OO,00 
Diese Fehlermeldung gibt es nur auf der CBM 8250. Sie 
zeigt Abweichungen von der  Normdrehzahl während der 
Formatierung an. 
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1.7 Übersicht aller Befehle mit Vergleich BASIC 2.0 - 
BASIC 4.0 - DOS 5.1 


OPEN - Modus ‘A’ APPEND (aP) 
BACKUP (bA) 
LOAD"#",8 & LIST CATALOG (cA) 85 oder >$ 
COLLECT (coL) Αν oder >V 
CONCAT (cont) 
COPY (coP) &C:.. oder 
DCLOSE (dC) 
LOAD"...",8 DLOAD (dL) *file oder 
OPEN ...,8,... DOPEN (40) 
OPEN 1,8,15 .... DS$, DS @ oder > 
SAVE"...",8 DSAVE (dS) 
N (ew) HEADER (hE) @N:.. oder 
I(nitialise) I(nitialise) QI oder ^I 
P RECORD (reC) 
R(ename) RENAME (reN) ΔΗ:.. oder 
S (cratch) SCRATCH (sC) 85:.. oder 
Diese Tabelle stellt die verschiedenen BASIC-Versionen 
gegenüber. Das DOS 9.1 befindet sich auf der 


TEST/DEMO-Diskette und wird im Kaptitel 4.2.1 beschrieben. 
Der wesentliche Unterschied zwischen BASIC 2.0 und BASIC 4.0 
ist, daB mit BASIC 2.0 jeder Befehl, der vom 
Disketten-Betriebssystem (DOS) ausgeführt wird, über den 
Kanal 15 gesendet werden muß. Die Disketten-Befehle des BASIC 
4.0 jedoch verwalten diesen Kanal selbstständig (mit Ausnahme 
von INITIALISE). So erzevgt dieses BASIC z.B. aus dem Befehl 
HEADER DO,"DISK1",IHJ die „leiche Befehlsfolge, die vom BASIC 
2.0 dazu angegeben werden muß, nämlich: 


OPEN 1,8,15,"N: DISK1,HJ" 
CLOSE 1 


Doch nun die Erklärung der BASIC 4.0-Befehle: 


Beachten Sie die folgenden Parameter: 


lfn = logische Filenummer 

dn = Drivenummer — bei Doppellaufwerken gibt es ein 
Drive O (DO) und ein Drive 1 (Di); Singlelauf- 
werke werden mit DO adressiert. 

ga = Geráteadresse der Diskettenstation (U4 bis U31) 


Angaben in Klammern brauchen nicht angegeben werden. Dann 
werden die Standardparameter DO und U8 eingesetzt. 


APPEND: 
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Dieser Befehl ermöglich. das Anhängen von Datensätzen an eine 
sequentielle Datei, wie es itt BASIC 2.0 mit dem DPEN-Modus 
Α΄ realisiert wird. 

Dieser Befehl hat das folgende Format: 


APPEND#1 fn, “dateiname" (,Ddn,Uga) 


Soll z.B die sequentielle Datei "SEQU.1", die sich auf Drive 
O befindet, um einen Datensatz erweitert werden, so ist dazu 
die folgende Befehlsfolge notwendig: 


100 APPEND#1 ,"SEQU.1",DO 
110 PRINT#1 , X¢ 
120 CLOSE 1 


BACKUP: 


Mit diesem Befehl kann eine gesamte Diskette kopiert werden. 
Der BACKUP-Befehl ist jedoch nur bei Doppellaufwerken 
einsetzbar. Beachten Sie das Format dieses Befehls: 


BACKUP Ddn TO Ddn(,Uga) 


Wichtig ist, daß entweder DO TO D1 oder Di TO DO angegeben 
werden muß. Ein Beispiel: 


Es soll eine Kopie der Diskette in Drive 1 auf die Diskette 
in Drive O erstellt werden. Dazu wird folgender Befehl 
eingegeben: ini 

BACKUP D1 TO DO 


CATALOG: 


Der CATALOG-Befehl des BASIC 4.0 hat den Vorteil, daß das 
Anzeigen des Disketteninhaltes nicht den BASIC-Speicher 
löscht, wie es beim BASIC 2.0 der Fall ist. Das Format des 
Befehls: 


CATALOG (Ddn,Uga) 
Wird bei Doppellaufwerken keine Drivenummer angegeben, so 
werden die Inhalte beider Disketten ausgegeben. Bei 
Singlelaufwerken wird CATALOG DO erzeugt. Ein Beispiel: 
CATALOG DO 
Es wird das Inhaltsverzeichnis der Diskette in Drive ο 


ausgegeben. 


COLLECT: 


80 


Dieser Befehl entspricht dem VALIDATE-Befehl des BASIC 2.0. 
Die Syntax des Befehls sieht so aus: 


COLLECT (Ddn) 


CONCAT: 


CONCAT verkettet sequentielle Files, indem einem File die 
Daten eines zweiten Files angehängt werden. Das Format: 


CONCAT (Ddn,)"filei" to (Ddn,)"file2" (ON Uga) 


Angenommen Sie wollen die Daten der Datei "SEQU.2" in Drive O 
an die Datei "SEQU.1" in Di anhängen. Um dies zu erreichen 
geben Sie folgenden Befehl ein: 


CONCAT DO,"SEQU.2" TO D1,"SEQU. 1" 


Mit diesem Befehl kónnen Files (ausgenommen relative Files) 
von einem Drive auf das andere kopiert werden. Somit findet 
der Befehl bei Singlelaufwerken keine Anwendung. Die Syntax 
des Befehls sieht folgendermaßen aus: 


COPY (Ddn,)("filei") TO (Ddn,)("file2") 


Sollen alle Files übernommen werden (z.B. von Drive O auf 
Drive 1), so reicht die die folgende Befehlsform aus: 


COPY DO TO Di 


DCLOSE: 


Der Befehl DCLOSE hat dieselbe Funktion wie der einfache 
CLOSE-Befehl, mit folgenden Ausnahmen: 


DCLOSE schließt alle Files 
DCLOSEt 1 schließt das File mit der Nummer 1 
DCLOSES1 ON U9 schließt das logische File #1 der Geräte- 
adresse 9 
DCLOSE U8 schließt alle Files der Geräteadresse B 
Der Befehl hat die folgende Syntax: 


DCLOSE (#1fn) (ON Uqa) 


Der Befehl DLOAD hat den Vorteil, daß standardmäßig von 
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Geräteadresse 8 geladen wird. Das Format: 
DLOAD "programm" (,Ddn) (,Uga) 


Wollen Sie z.B. das Programm "PRG.2" von Drive O laden oder 
von einem Einzellaufwerk laden, so geben Sie den Befehl 


DLOAD "PRG.2" 


ein. Drive O (DO) wird standardmäßig eingesetzt. 


Dieser Befehl des BASIC 4.0 ist sehr umfangreich. Das 
folgende Format bestätigt es: 


DOPEN#1fn,"file"(,Ddn) („Uga) („fileparamter) 


Das Besondere an dieser Art des öffnens ist der Fileparamter. 
Es gibt zwei Fileparameter, die folgende Funktion haben: 


JA NEIN 
NEIN JA 
NEIN NEIN 


Zusätzlich zum 'L'-Parameter muß die Recordlänge angegeben 
werden (z.B. L80). Ein derartiger DOPEN-Befehl sieht dann so 
aus: 


Wirkungsweise 


Eine relative Datei wird zum 
Schreiben geöffnet. 

Ein sequentielles File wird 
zum Schreiben geöffnet. 

Ein File wird zum lesen ge- 
öffnet. (REL,SEQ,PRG,USR) 


DOPEN#1, "FILE.REL". DO,L8O 


Hier wird ein relatives File mit einer Recordlänge von 80 
Bytes zum Schreiben geöffnet. 

Wird kein Fileparameter angeueben, so vird das argegebene 
File zum Lesen geöffnet. 


DS$ & DS: 


Nach Auftreten eines Diskettenfehlers kann entweder die 
gesamte Fehlermeldung mit PRINT DS$ oder nur die Fehlernummer 
mit PRINT DS angezeigt werden. Selbstverständlich kann auch 
innerhalb eines Programms der Fehler abgefragt und 
dementsprechend verzweigt werden. Z.B.: 


100 IF DS = 19 THEN GOTO..... 
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DSAVE: 


Mit diesem Befehl können Programme auf Diskette gespeichert 
werden. Das folgende Format ist zu beachten: 


DSAVE (Ddn,)"programmname" („Uga) 


HEADER: 


Mit dem HEADER-Befehl werden im BASIC 4.0 Disketten 
formatiert. Er entsprricht dem NEW-Befehl im BASIC 2.0. Die 
Syntax des Befehls: 


HEADER "diskettenname",DO,Iid(,Uga) 
oder HEADER Ddn,"diskettenname",Iid 


Hier gibt es zwei Möglichkeiten, das Laufwerk zu bestimmen. 
Die Angabe id ist die Disketten-Identifikation. Wird sie 
nicht angegeben, so wird der Disketten, vorausgesetzt sie ist 
formatiert, lediglich ein neuer Name zugewiesen und alle 
darauf befindlichen Files gelöscht. 


RECORD: 


Dieser Befehl entspricht dem Positionier-Befehl des BASIC 
2.0, bzw. des DOS 2.6. Mit dem RECORD-Befehl kann also auf 
einen Record in einer relativen Datei positioniert werden, 
ohne daß diese Positionierung über Kanal 15 gesendet werden 
muß. Die Syntax dieses Befehls verdeutlicht, wie komfortabel 
diese Positionierung ist: 


RECORD#1fn,rn(,bp) 


Die logische Filenummer bezieht sich auf das geöffnete, 
relative File. Für ‘rn’ wird die Recordnummer (1-65555} und 
für ‘bp’ evtl. die Position innerhalb dieses Records (1-254) 
angegeben. 


Ein Beispiel: Sie wollen auf das 12. Byte des 128. Records 
einer mit der logischen Filenummer 2 geöffneten, relativen 
Files positionieren. Der folgende Befehl ermöglicht dies: 


RECORD#2,128,12 


RENAME: 


Dieses RENAME ist ähnlich dem RENAME des BASIC 2.0. Das 
Format dieses Befehls: 
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RENAME (Ddn,)"alter name" TO "neuer name" („Uga) 


SCRATCH: 


Diese Methode des Löschens von Files ist wesentlich 
komfortabler, denn es kann mit einem Befehl gelöscht werden. 
Das Format dieses Befehls: 

SCRATCH (Ddn,) "file" (,Uga) 


Nach Eingabe eines SCRATCH-Befehls wird mit der Meldung "ARE 


YOU SURE?" noch einmal eine Annulierung des Befehls 
ermöglicht. Soll das File wirklich gelöscht werden, so geben 
Sie 'Y', ansonsten ΄Ν΄ ein. Nach dem Löschen des Files 


erscheint die Meldung "FILES SCRATCHED" auf dem Bildschirm. 
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Kapitel 2ı Programmierung für Fortgeschrittene 


2.1 Der Direktzugriff auf jeden Block der Diskette 


Bei der Handhabung von Dateien und Programmen auf der Floppy, 
wie sie in Kapitel 1 beschrieben ist, brauchen wir uns um die 
Organisation auf der Diskette nicht zu kümmern, das Floppy- 
betriebssystem (DOS) erledigt dies automatisch für uns. 


Das DOS bietet jedoch auch die Möglichkeit, jeden Block auf 
der Diskette, der durch Track (Spur) und Sektor bestimmt ist, 
einzeln anzusprechen. Damit stehen uns jetzt weitreichende 
Möglichkeiten zur Verfügung, von der Manipulation einzelner 
Files bis zur Realisierung eigener neuer Dateistrukturen. 


Um auf einen Block direkt zugreifen zu können, muß vom DOS 
ein Datenkanal und ein Datenpuffer zugeordnet werden, über 
den die Daten übermittelt werden. Der Datenpuffer dient zur 
Zwischenspeicherung der Daten, ehe sie auf Diskette geschrie- 
ben werden, bzw. in den sie von der Diskette gelesen werden. 
Um dem DOS mitzuteilen, daß wir im Direktzugriff arbeiten 
wollen, wird ein spezieller Filename im OPEN-Befehl benutzt: 


OPEN 1,8,2, "#" 


Mit diesem Befehl wird der logischen Filenumer i auf dem 
Gerät 8, der Floppy, eine Direktzugriffsdatei zugeordnet. Zur 
Datenübermittlung dient der Kanal 2 der Floppy. An Kanal- 
nummern (Sekundáradresse beim OPEN-Befehl) stehen Ihnen 2 bis 
14 zur Verfügung. O und 1 sind für LOAD und SAVE reserviert, 
15 ist der Kommandokanal. Welche Sekundäradresse Sie wählen, 
hat keine weitere Bedeutung. Natürlich dürfen Sie eine 
Sekundäradresse nicht mehrmals verwenden, da das DOS beim 
zweiten  OPEN-Befehl mit gleicher Sekundäradresse die 
vorherige Datei mit dieser Kanalnummer schließt. Das gilt 
natürlich auch beim Arbeiten mit normalen Dateien. 


Bei dieser Form des DPEN-Befehls sucht die Floppy selbst 
einen freien Datenpuffer und weist ihn dem angesprochenen 
Kanal zu. Wir können die Puffernummer lesen, wenn wir 
unmittelbar nach dem OPEN-Befehl mit GET ein Zeichen abholen. 
Dieser Wert enthalt die Puffernummer. 


100 OPEN 1,8,2, "#" 
110 GET#1, ñ$ 

120 PRINT ASC (A$+CHR$ (0) ) 
RUN 


3 
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In unserem Falle wurde also Puffer 5 belegt. Die Numerierung 
der Puffer geht von O bis 4. Die Fuffer belegen jeweils 256 
Byte (wie jeder Block auf der Diskette) und liegen bei der VC 
1541 in folgenden Speicherbereichen: 


Puffernummer Speicherbereich 
O $300 — $3FF, 768 - 1025 
1 $400 — $4FF, 1024 — 1279 
2 $500 - $5FF, 1280 - 1535 
3 $600 - $6FF, 1556 - 1791 
4 $700 - $7FF, 1792 - 2047 


Puffer 4 steht normalerweise nicht zur Verfügung, da dort die 
BAM gespeichert ist. Arbeiten wir gleichzeitig noch mit 
normalen Dateien, kann auch Puffer 3 nicht benutzt werden, da 
er dann fürs Directory benutzt wird. Wollen wir beim 
Direktzugriff einen bestimmten Pufferspeicher zuordnen, so 
können wir dies beim OPEN-Befehl mit angeben. 


OPEN 1,8,2, "#3" 


Hiermit wird dem Kanal 2 der Puffer 3 (#600 - #4FF) 
zugeordnet, sofern er noch frei ist. Falls nicht aus 
besonderen Gründen ein bestimmter Puffer erforderlich ist 
(z.B. wenn ein ausführbares Maschinenprogramm dort stehen 
soll), so sollte man dem DOS die Wahl des Puffers überlassen, 
da bei der Auswahl eines festen Fuffers die Möglichkeit, daß 
er belegt ist, größer ist. 


Sie sollten daher nach dem öffnen des Kanal in jedem Falle 
den Fehlerkanal abfragen. 


130 OPEN 15,8,15 
140 GET415, ΑΦ : PRINT A$; : IF ST <> 64 THEN 140 


Ist der Puffer bereits belegt, so bekommen Sie die Fehler- 
meldung 


70,NO CHANNEL ,00,00 


Haben Sie keine anderen Dateien offen, so können Sie bis zu 4 
Kanäle für den Direktzugriff öffnen. Es werden dann in der 
Reihenfolge des öffnens die Puffer 3 bis O zugeordnet, wie 
Sie folgendem Beispiel entnehmen können. 


10 OPEN 1,8,15,"IO" : I=2 : REM FEHLERKANAL 


20 OPEN 2,8,2, "4" : GOSUB 100 
30 OPEN 3,8,3, "#" : GOSUB 100 
40 OPEN 4,8,4, "4" : GOSUB 100 
50 OPEN 5,8,5, "#" : GOSUB 100 
60 OPEN 6,8,6, "4" : GOSUB 100 


70 END 

100 GET#I, 4$: PRINT ASC (A$+CHR$ (CO) ) 

110 I-I*1 : REM PUFFERNUMMER 

120 GET#1, A$ : PRINT ñ$; : IF ST <> 64 THEN 120 
130 RETURN 
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3 
OO, OK,00,00 


Pa 
00, 0K,00,00 
1 
00, 0K,00,00 
ο 
00, 0K,00,00 
199 
70,NO CHANNEL , OO 


Wie Sie sehen, scheiterte der Versuch, einen 5. Kanal für den 
Direktzugriff zu öffnen. 


Die Datenübertragung von und zu den Pufferspeichern geschieht 
wie üblich mit GET# bzw. INPUT# und PRINT#-Befehlen. 


Hier noch eine Bemerkung zum Einlesen von Daten in den 
Rechner. 


Hand: "tee sich im Puffer um reine alphanumerische Daten, 
z.B. Texte, die nicht länger als 88 Zeichen sind und die mit 
CR (Carriage Return, CHR#(13)) von einander getrennt sind, so 
können sie ohne weiteres mit INFUT# gelesen werden. Sind 
jedoch auch Steuer zeichen enthalten oder sind die mit Texte 
Komm a oder Doppelpunkt getrennt, so versagt der 
INPUT#-Befehl. Hier müssen wir auf den GET#-Befehl 
ausweichen, der immer nur ein Zeichen holt. Hier müssen wir 
jedoch beachten, daß mit GET# kein Nullbyte  CHR$(O) gelesen 
werden kann. In diesem Falle erhalten Sie den Leerstring 
zurück, so daß dies extra abgefragt werden muß, z.B. 


100 GET#2, ñ$ : IF A$="" THEN ñ$ = CHR$ (0) 


Eine andere und meist einfachere Alternative ist die 
Benutzung des Befehls  'INPUT*', wie er in Kapitel 4.3.1 
beschrieben ist. Hier können Sie angeben, wieviel Zeichen in 
einen String eingelesen werden sollen. Auch gibt es hier 
keine Probleme mit Nullbytes (CHR#(0)). Hier können wir auch 
fast den ganzen Fuffer (255 Zeichen sind möglich, d.h. bis 
auf ein Zeichen) mit einem Befehl lesen. 


In den nächsten Abschnitten sind nun alle Befehle im 
Zusammenhang mit dem Direktzugriff ausführlich beschrieben. 


Haben Sie sich mit den Block-Befehlen bereits näher befaßt 
und wollen Sie sich einzelne Block komplett auf dem 
Bildschirm ansehen oder ändern, so können Sie dafür den 
Disk-Monitor aus Kapitel 4.6 benutzen, der dies aus einfache 
und komfortable Weise ermüglicht. 


87 


2.2 Die Direktzugriffsbefehle 


2.2.1 Der Block-Read-Befehl B-R 


Der  Block-Read-Befehl dient zum Lesen eines Block von 
Diskette in den Puffer einer zuvor geöffneten Direktzu- 
griffsdatei. Sämtliche Block-Befehle werden über den Komman- 
dokanal (Sekundäradresse 15) an die Floppy geschickt. Der 
Befehl zum Lesen eines Blocks lautet  'B-R'. Da mit diesem 
Befehl jedoch das erste Byte eines Block nicht gelesen wird, 
benutzt man zum Lesen eines Blocks nur den Befehl "ULT, Der 
Befehl hat folgende Syntax: 


U1 Kanalnummer Drive Track Sektor 


Dabei müssen Sie die Kanalnummer angeben, die Sie beim öffnen 
der Direktzugriffsdatei verwendet haben. Als nächstes folgt 
die Drivenummer; bei der VC 1541 immer Null und dann die 
Nummern des Tracks und Sektors, den Sie lesen wollen. 


10 OPEN 1,8,15 
20 OPEN 2,8,2, "#" 
ZO PRINT#1, "U1 2 O 18 O" 


Damit haben Sie den Inhalt von Track 18 Sektor O in den zu 
Kanal 2 gehörenden Puffer gelesen. Nun können Sie mit GET#2 
Daten aus diesem Puffer lesen. 


40 GET#2, A$,B$ 
20 PRINT ASC (AS), ASC (BS) 


18 1 


Damit haben wir die beiden ersten Byte aus dem Puffer gelesen 
und angezeigt. Der Track 18, Sektor O enthält die BAM der 
1541; die beiden gelesenen Werte bezeichnen den Track und den 
Sektor des ersten Directory-Blocks. 


Im Demo-Programm ‘DISPLAY T&S’ auf der Testdiskette (Kapitel 
4.2.7) wurde dieser Befehl benutzt, um die BAM von Diskette 
zu lesen und die Belegung der einzelnen Sektoren auf dem 
Bildschirm grafisch darzustellen. 


Mit dem GET#-Befehl können wir so alle 256 Byte des Blocks 
aus dem Puffer lesen; in unserem Beispiel lesen wir ab 
Position 144 den Diskettenamen und die ID. 


Da die einzelnen Blocks einer Datei so  verkettet sind, daß 
die ersten beiden Bytes auf einem Block jeweils die Track- 
und Sektornummer des nachfolgenden Blocks enthalten, kann man 
so den Verlauf einer Datei über die Diskette verfolgen. Die 
Datei ist dann zuende, wenn man als Folgetrack den Wert Null 
erhält; das zweite Byte gibt dann an, wieviel Bytes auf 
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diesem Sektor noch zur Datei gehören. Den ersten Sektor einer 
Datei kann man mit unserem Frogramm aus Kapitel 4.1.1 
erfahren. Dann kann folgendes kleine Programm alle weiteren 
Tracks und Sektoren anzeigen, die durch eine Datei belegt 
sind. 


100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 INPUT "TRACK UND SEKTOR ";T,S 

150 PRINT# 1, "U1 2 0O";T;S 

140 GET# 2, T$, S$ 

150 T = ASC(T$4CHR£(O)): S = ASC(SS£*CHR£ (O)) 
160 IF T = O THEN CLOSE 2 : CLOSE 1 :END 
170 PRINT "TRACK";T ,"SEKTOR";S 

180 GOTO 130 


Geben Sie 18 und O als Track und Sektor an, so vorfolgen Sie 
die Blöcke für BAM und Directory. 


2.2.2 Der Buffer-Pointer-Befehl  B-P 


Benótigen wir in unserem obigen Beispiel nur den 
Diskettennamen, der in Track 18 Sektor O ab Position 144 
steht, so mußten wir nach obiger Methode die ersten 143 Byte 
überlesen, ehe wir den Namen erhielten. Um den Zugriff auf 
jedes beliebige Byte zu erleichtern hat man den 
Block-Pointer-Befehl eingeführt. Damit läßt sich der Zeiger, 
der die augenblickliche Lese- oder Schreibposition im Puffer 
angibt, auf jedes beliebige Byte im Puffer setzen. Die Syntax 
ist folgende: 


B-P Kanalnummer Position 
Jetzt kann man den Diskettennamen direkt lesen: 


100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT# 1, "U1 2 O 18 O" 

130 PRINT# 1, "B-P 2 144" 

140 FOR I - 1 TO 16 :REM MAXIMALE LAENGE 
150 GET# 2, A$ : IF A$-CHR$(160) THEN 170 
160 PRINT A$; : NEXT 

170 CLOSE 2 : CLOSE 1 


Hier haben wir nach dem Einlesen des Blocks den Pufferzeiger 
auf 144 gesetzt und lesen dann 16 Bytes, falls vorher nicht 
CHR$ (1650) ('Shift Space’) gefunden wurde, welches das Ende 
des Namens anzeigt. 

Die Bytes im Puffer sind von O bis 255 nummeriert, das erste 
Byte hat also die Nummer O. Beim Lesen eines Blocks mit Ul 
wird der Pufferzeiger automatisch auf das Byte Nummer null 
gesetzt. Beim Bewegen des Pufferzeigers ist man völlig frei. 
Man kann z.B. in unserem obigen Beispiel nach dem Lesen des 
Namens das Byte Nummer 2 lesen, kann dies einfach durch 


89 


Setzen des Pufferzeigers auf dieses Byte geschehen. 


PRINT# 1, "B-P 2 2" 


2.2.3 Der Block-Write-Befehl B-W 


Der Block-Write-Befehl ermöglicht es uns, den Inhalt des 
Fufferspeichers in einen beliebigen Block auf Diskette zu 
schreiben. Man kann damit Daten, die man in den Puffer 
geschrieben hat, auf einen Block der Diskette schreiben. 
Ebenso ist es möglich, mit dem Block-Read-Befehl einen Block 
in den Puffer zu lesen, dann einige Bytes zu verändern und 
den Block dann wieder zurück zu schreiben. Der  Block-Write- 
Befehl wird mit B-W abgekürzt. Da dieser 'B-W'-Befehl jedoch 
in das erste Byte des Puffers den augenblicklichen Inhalt des 
Pufferzeigers schreibt, benutzt man hier meist den  'U2'- 
Befehl. Die Syntax des Befehls ist analog zum B-R Befehl 


U2 Kanalnummer Drive Track Sektor 


100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT# 2, "TESTDATEN" 
130 PRINT# 1, "U220 1 0" 
140 CLOSE 2 :CLOSE 1 


Hier wird der Text "TESTDATEN" in den zu Kanal zwei 
gehörenden Puffer geschrieben und dieser dann auf Track 1 
Sektor O der Diskette. Durch den ‘U1’-Befehl werden der 
Inhalt des Puffers sowie der Pufferzeiger nicht verändert. 
Wir wollen jetzt den Block-Write-Befehl dazu benutzen, den 
Namen der Diskette, den wir im letzten Abschnitt gelesen 
haben, zu ändern. Dazu müssen wir den neuen Namen bis auf 
eine Länge von 16 Zeichen mit ‘Shift Space’ CHR$(160) 
auffüllen, ehe wir ihn auf Diskette schreiben können. Wir 
benutzen wieder den  Buffer-Pointer-Befehl, um den Zeiger 
direkt auf die gewünschte Position innerhalb des Puffers zu 
setzen. 


100 OPEN 1,8,15 

110 OPEN 2,8,2, "#" 

120 PRINT# 1, "Ui 2 O 18 O" 

130 PRINT# 1, "B-P 2 144" 

140 A$ = "DIREKTZUGRIFF" 

150 IF LEN(A$) < 16 THEN ΑΦ = A$+CHR$(160) : GOTO 150 
160 PRINT# 2, A$; 

170 PRINT# 1, "U2 2 O 18 O" 

180 CLOSE 2 

190 PRINT# 1, "IO" : CLOSE 1 


Wir lesen also erst Track 18 Sektor O in den Puffer, setzen 
den Pufferzeiger auf die Position des Diskettennamens und 
schreiben den auf 16 Zeichen aufgefüllten Namen in den 
Puffer. Jetzt wird in Zeile 170 der Pufferinhalt wieder in 
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den ursprünglichen Block geschrieben und der Kanal 2 
geschlossen. Dann wird die Diskette neu initialisiert, damit 
BAM und Name in den DOS-Speicher übernommen werden. Holen Sie 
jetzt das Inhaltsverzeichnis mit 


LOAD "#",8 
LIST 


auf den Bildschirm, so sehen Sie, daß unsere Diskette einen 
neuen Namen bekommen hat. 


2.2.4 Der Block-Allocate-Befehl B-A 


Der Block-Allocate-Befehl hat die Aufgabe, einen Block in der 
BAM (Block Availability Map, Verzeichnis der zur Verfügung 
stehenden Blöcke) als belegt zu kennzeichnen. Dies ist dann 
erforderlich, wenn wir im Direktzugriff Blöcke auf der 
Diskette beschrieben haben, die nicht Teil einer Datei sind 
und deshalb nicht automatisch als belegt gekennzeichnet sind. 
Werden dermaßen benutzte Blöcke nicht als belegt  gekenn- 
zeichnt, können sie beim nächsten Schreiben in eine reguläre 
Datei überschrieben werden. Der Block-Allocate-Befehl hat 
folgende Syntax: 


B-A Drive Track Sektor 


Damit wird der entsprechende Block in der BAM als belegt 
gekennzeichnet und ist so vor dem überschreiben durch andere 
Dateien geschützt. War der zu belegende Block bereits belegt 
so erhält man die Fehlermeldung 65, ΝΟ BLOCK’. 


100 OPEN 1,8,15 

110.INPUT "TRACK, SEKTOR ";T,S 
120 FRINT# 1, "B-A O";T;S 

130 INPUT# 1, A$,Bt,C$,D$ 

140 PRINT AS", "BS", "C$", "D$ 


In dem kleinen Programm kann man Track und Sektor angeben, 
die am als belegt kennzeichnen will. War der Block noch frei, 
wir er belegt und die Meldung ‘90, ok,00,00' wird ausgegeben. 
War der Block jedoch bereits belegt, erscheint die Meldung 
°65,NO BLOCK,TT,SS’. Die Track und Sektornummer TT und 58 
geben jetzt den nächsten freien Block mit höherer Sektor und/ 
oder Tracknummer an. Erhält man diese Fehlermeldung, so weiß 
man, daß dieser Block belegt ist kann den nächsten freien 
Block benutzen. Erhält bei der Fehlermeldung 65 jedoch als 
Track und Sektornummer jeweils eine Null zurück, so ist kein 
Block mit höherer Track und/ oder Sektornummer mehr frei. Das 
folgende Programm belegt automatisch den nächsten freien 
Sektor. 


100 OPEN 1,8,15 


110 INPUT "TRACK, SEKTOR ";T,S 
120 PRINT# 1, "B-A O";T;S 
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130 INPUT# 1, Af,B$,TT,SS 

140 IF A$ = "OO" THEN 190 

150 IF A$«»"&55" THEN PRINT A$","B$","TT","SS : END 
160 IF TT=O THEN PRINT "KEIN FREIER BLOCK MEHR" = END 
170 IF TT-18 THEN TT-19 : SS=O 

180 T-TT : S-SS : GOTO 120 

190 PRINT "TRACK" TT "SEKTOR" SS "WURDE BELEGT" 


Die Abfrage auf Track 18 in Zeile 170 verhindert, daß ein 
Block des Directorys belegt wird. Eine weitere Fehlermeldung 
in diesem Zusammenhang mit dem  'B-A'-Befehl ist noch 
interresant. Versucht man einen Block zu belegen, der gar 
nicht existitiert, z.B. Track 20 Sektor 21, so erhált man die 
Fehlermeldung 


66,ILLEGAL TRACK OR SEKTOR ,20,21 


Die Kennzeichnung eines Blocks in der BAM als belegt 
verhindert das überschreiben des Blocks durch andere Dateien. 
Der Block bleibt solange als belegt gekennzeichnet, bis der 
Befehl ‘VALIDATE’ ('COLLECT' in BASIC 4.0) auf die Diskette 
angewandt wird. Dieser Befehl konstruiert eine neue BAM. Dies 
geschieht folgendermaßen. Da sämtliche Blocks einer Datei mit 
einander verkettet sind, kann man so eine Datei über die 


Diskette verfolgen. Dies macht dem Validate-Befehl und 
markiert jeden Block, der zu einer Datei gehört, als belegt. 
Nicht geschlossene Dateien, im Directory mit "gi gekenn- 


zeichnet, werden dabei gelöscht. Dabei werden dann auch alle 
Blöcke, die mit ΄Β-Α΄ belegt wurden und zu keiner regulären 
Datei gehören, wieder freigegeben. Hat man also im 
Direktzugriff Blöcke belegt, die nicht zu Dateien gehören, 
die im Directory erscheinen, so darf man den Validate-Befehl 
nicht anwenden, da sonst sämtliche Blöcke wieder freigegeben 
werden. 


2.2.5 Der Block-Free-Befehl  B-F 


Der Block-Free-Befehl ist das Gegenstück zum Block-Allo- 
cate-Befehl und gibt einen Block in der BAM wieder frei. Die 
Syntax ist analog zum Block-Allocate-Befehl: 


B-F Drive Track Sektor 


100 OPEN 1,8,15 
110 PRINT# 1, "B-F O 20 9" 


Mit diesem Befehl wird der Block in Track 20 Sektor 7 wieder 
in der BAM freigegeben. War der Block bereits freigegeben, so 
gibt es hier keine Fehlermeldung. 


Das Belegen und Freigeben von Blocks haben nur Effekt auf das 
überschreiben des Blocks mit regulären Dateien durch das DOS. 
Die Block-Write- und Block-Read-Befehle bleiben davon unbe- 
einträchtigt. Sie können mit diesen Befehlen sowohl belegte 
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Blocks beschreiben, noch wird ein Block durch Beschreiben mit 
Block-Write in der BAM belegt. Haben Sie z.B. auf einer 
Diskette nur Direktzugriffsdateien, so ist es im Prinzip 
nicht nötig, beschriebene Blöcke als belegt zu kennzeichnen, 
da keine anderen Dateien auf Diskette geschrieben werden. In 
diesem Falle können Sie sogar die Directoryblöcke in Track 18 
mit benutzen, Sie können so 672 Blöcke auf der νο 1541 
Diskette benutzen. 


2.2.6 Der Block-Execute-Befehl  B-E 


Der Block-Execute-Befehl dient dazu, einen Block von Diskette 
in den Puffer zu lesen und den Pufferinhalt als Maschinen- 
programm im DOS auszuführen. Man kann also Routinen, die das 
DOS ausführen soll, mit dem 'B-W'— bzw. 'U2'-Befehl auf einen 
Sektor auf Diskette schreiben und später mit dem 
Block-Execute-Befehl in einen Puffer holen und dort als 
Maschinenprogramm ausführen. Das setzt natürlich eine gute 


Kenntnis der Interna des DOS voraus. Will man den  'B-E'- 
Befehl benutzen, wird man beim öffnen des Direktzugriffs- 
kanal meist die Puffernummer mit angeben, falls das 


Maschinenprogramm nicht verschiebbar und für einen bestimmten 
Puffer geschrieben ist. Der Block-Execute-Befehl hat folgende 
Syntax: 


B-E Kanalnummer Drive Track Sektor 


100 OPEN 1,8,15 
110 OPEN 2,8,2, "#3" 
120 PRINT# 1, "B-E 2 O 17 12" 


Hier wird der Puffer 3 ($600 - $6FF) dem Kanal zwei 
zugeordnet. Anschließend wird der Inhalt von Track 17, Sektor 
12 in diesen Puffer geladen und dort als Maschinenprogramm 
ausgeführt. 


Der Block-Execute-Befehl läßt sich durch Block-Read und 
Memory-Execute-Befehl ersetzen. Beispiele für die Ausführung 
von Maschinenprogrammen im DOS finden Sie im Kapitel 2.4 bei 
den Memory-Befehlen. 
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2.3 Anwendungen des Direktzugriffs 


Was läßt sich nun mit den Direktzugriffsbefehlen anfangen ? 


Dazu kann man sich mehrere Anwendungen vorstellen. Die erste 
Möglichkeit besteht in der Manipulation einzelner Sektoren. 
Damit kann man eine Vielfalt von Aufgaben erfüllen. Es fängt 
an mit Manipulationen im BAM-Sektor, wo wir die Möglichkeit 
haben, den Diskettennamen oder die ID zu ändern. Dann bietet 
sich das Directory an. Dort könnten wir die ungenutzten Bytes 
für zusätzliche Informationen nutzen. Wir können Dateien 
einen anderen Namen geben und können die Verkettung der 
einzelnen Blocks einer Datei verfolgen und gegebenenfalls 
nach eigenen Vorstellungen ändern. Eine ganze Palette an 
Möglichkeiten tut sich auf, wenn es um den Filetyp der Datei 
geht. Wir können z.B. aus einer sequentiellen Datei eine 
Programmdatei machen, indem wir aus Filetyp 1 eine 2 machen. 
Wir können wir eine nichtgeschlossene Datei in Directory 
durch Setzen des Bit 7 schließen, aus #02 wird dann $82. 
Solche Dateien sind im Directory durch einen Stern 
gekennzeichnet; nach der obigen Änderung verschwindet der 
Stern. Eine vom DOS zwar berücksichtigte, per Befehl jedoch 
nicht erreichbare Eigenschaft einer Datei ist der Schutz vor 
dem Löschen. Dazu brauchen wir lediglich das Bit & des 
Filetyps setzen, z.B wird aus $82 dann $C2. Im Directory 
erscheint jetzt ein <’ hinter der Typbezeichnung. Die Datei 
ist nun gegen Scratchen immun. Damit können Sie z.B. wichtige 
Systemprogramme auf Ihrer Diskette gegen unbeabsichtigtes 
Löschen schützen. Diese und andere Möglichkeiten finden Sie 
in Kapitel 4.1. 


Haben Sie derartige Manipulationen vor, so wäre es am 
komfortabelsten, wenn man sich einen kompletten Sektor von 
Diskette lesen könnte, ihn auf dem Bildschirm anzeigen, 
ändern und wieder auf Diskette schreiben könnte. Ein solches 
Programm, ein Disk-Monitor, ist in Kapitel 4.4 beschrieben. 
Ehe Sie jedoch mit solchen Experimenten beginnen, sollten Sie 
sich auf jeden Fall eine Kopie von Ihrer Diskette machen. 
Machen Sie nämlich gerade bei Directory und BAM Fehler, kann 
unter Umständen der ganze Disketteninhalt für Sie verloren 
sein. 


Haben Sie schon mal aus Versehen eine Datei oder ein Programm 
auf Diskette gelöscht und sich dann darüber geärgert, daß Sie 
das komplette Programm, neu Eingeben mußten ? Falls Sie 
danach noch nicht auf die Diskette geschrieben haben, können 
Sie die Datei einfach zurückholen. Beim Löschen einer Datei 
wird nämlich lediglich im Directory der Filetyp auf O gesetzt 
und die belegten Blöcke in der BAM freigegeben. Sie brauchen 
jetzt nur der Directoryeintrag der Datei zu suchen und den 
Filetyp wieder einzusetzen: $81 für SEQ, #82 für PRG, $83 für 
USR und $84 für REL. Danach müssen Sie nach ein Validate 
machen, damit die Blöcke der Datei wieder als belegt 
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gekennzeichnet werden, z.B. mit OPEN 1,8,15 : PRINT# 1, "VO". 


Andere Anwendungen des Direktzugriff können z.B. dazu dienen, 
eigene Dateistrukturen zu erzeugen, die das DOS nicht kennt. 
Sie müssen dann die Verwaltung der neuen Datei selbst 
übernehmen und benutzen zum Lesen und Schreiben die 
Direktzugriffsdatei. Eine solche Dateiform ist z.B. die 
ISAM-Datei. ISAM ist die Abkürzung für Index Sequentiell 
Acces Method, zu deutsch Index-sequentielle Zugrfiffsmethode 
heißt. Bei einer ISAM-Datei können Sie auf jeden Dateisatz 
direkt zugreifen, ähnlich wie bei einer realtiven Datei. 
Hierbei wird jedoch nicht über die Satznummer, sondern über 
einen sogenannten Zugriffsschlüssel oder Index zugegriffen. 
Dieser Index ist ein Feld des Datensatzes. Besteht ein 
Datensatz z.B. aus 5 Feldern, die Namen, Vornamen, Straße, 
Postleitzahl und Ort enthalten, so könnten wir den Namen als 
Zugriffsschlüssel definieren. Wollen wir nun den Datensatz 
des Kunden Müller lesen, so heißt der Befehl dazu einfach 
‘Lese Datensatz "Müller" ’. Wir brauchen uns also nicht um 
irgen 'selche Satznummer oder sonstige Ordnungskriterien 
kümmer n und können im Klartext angeben, welchen Datensatz wir 
Lesen, “ndern, Schreiben oder Löschen wollen. In solchen 
ISAM-Dareisystemen ist meist der Index noch einmal separat 
abgespeichert zusammen mit den Informationen, wo der 
Datensat: auf Diskette zu finden ist. Eine solche 
ISAM-Datei-Verwaltung mit noch weitgehenderen Möglichkeiten, 
als sie hier beschrieben ist, finden Sie z.B. neben anderen 
Dingen im frcacammentwicklungssystem MASTER, das auch für den 
Commodore 64 erhältlich ist. 
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2.4 Der Zugriff auf das DOS - Die Memory-Befahle 


In Kapitel 2.2.6 haben wir bereits die Möglichkeit kennen- 
gelernt, Programme in den DOS-Speicher zu laden und dort 
auszuführen. Mit den Memory-Befehlen können wir nun auf jedes 
Byte des DOS zugreifen und Programm in RAM und ROM ausführen. 
Wir können z.B. auf den Arbeitsspeicher des DOS zugreifen und 
z.B. die Anzahl der freien Blöcke auf der Diskette lesen oder 
den Diskettenname aus dem BAM-Puffer holen. Durch Schreiben 
in das DOS-RAM können wir Konstanten ändern, z.B. die Geräte- 
nummer der Floppy oder die Anzahl der Leseversuche für einen 
Block, ehe eine Fehlermeldung gebracht wird. Weiterhin 
besteht die Möglichkeit, Routinen innerhalb des DOS-Speichers 
ausführen zu lassen. Das können sowohl Routinen des DOS als 
auch eigene Routinen sein, die in einem Pufferspeicher 
abgelegt und dort ausgeführt werden können, wie beim 
Block-Execute-Befehl. Voraussetzung für die erfolgreiche 
Nutzung dieser Befehle sind natürlich Kenntnise in 6502 
Maschinensprache und in Arbeitsweise und Speicherbelegung des 
DOS; bei letzterem, so hoffen wir, kann Ihnen dieses Buch 
eine Hilfe sein. Es folgt nun eine Beschreibung der Befehle 
sowie Beispiele zu ihrer Anwendung. 


2.4.1 Der Memory-Read-Befehl M-R 


Mit diesem Befehl kann man jedes Byte des DOS lesen. Der 
Befehl wird über den Kommamdokanal übermittelt und stellt das 
gelesene Byte dann ebenfalls auf dem Kommamdokanal zur 
Verfügung, wo es mit GET# abgeholt werden kann. Die Syntax 
des Befehls sieht so aus: 


M-R CHR$ (LO) CHR$ (HI) 


Dabei bedeuten LO und HI das Low- und Highbyte der Adresse im 
DOS, die gelesen werden soll. Das folgende Programm fragt 
nach einer Adresse und liest den Inhalt dieser Adresse aus 
dem DOS. 


100 INPUT "ADRESSE ";A 

110 HI = INT (4/256) 

120 LO = A-256*HI 

130 OPEN 1,8,15 

140 PRINT# 1, "M-R"s CHR$(LO)s; CHR$(HI) 
150 GET# 1, A$ 

160 PRINT ASC (A$+CHR$ (0)) 


Wollen wir z.B. die Anzahl der freien Blocks auf einer 
Diskette wissen, so brauchen wir nicht das komplette 
Inhaltsverzeichnis zu lesen, sondern können direkt die 
entsprechenden Bytes aus dem DOS-Speicher lesen. Dies kann 
z.B. dann nützlich sein, wenn man vom Programm aus Dateien 
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anlegt und sich so vergewissern kann,. ob noch genügend Platz 
auf der Diskette ist. 


100 OPEN 1,8,15 ,"IO" 

110 PRINT4 1, "M-R" CHR$(250) CHR$(2) 

120 GET# 1, ΑΦ : IF A$-"" THEN A$-CHR$ (0) 

130 PRINT# 1, "M-R" CHR$(252) CHR$(2) 

140 GET# 1, B$ : IF B$-"" THEN B$-CHR$ (0) 

150 PRINT ASC(A$) + 256 * ASC (B$) "BLOCKS FREI" 
160 CLOSE 1 


Mit der angegebenen Syntax muß für jedes Byte, was gelesen 
werden soll, ein eigener  'M-R'-Befehl benutzt. Wie sich 
jedoch aus dem DOS-Listing entnehmen und durch überprüfen 
bestätigen läßt, kann man auch mehrere aufeinander folgende 
Bytes mit einem  'M-R'-Befehl lesen. Man braucht nur die 
Anzahl der zu lesenden Bytes als dritten Parameter angeben: 


M-R CHR$ (LO) CHR$ (HI?) CHR$ (ANZAHL) 


Benutzen können wir dies z.B. dazu, um den Namen der Diskette 
aus dem BAM-pufferspeicher zu lesen. Dazu muß man wissen, daß 
die BAM beim Initialisieren oder sonst vor einem Dateizugriff 
in den Puffer ab Adresse $700 geladen wird, aus dem wir mit 
einem 'M-R'-Befehl den Namen der Diskette lesen können. 


100 OPEN 1,8,15, "IO" 

110 PRINT# 1, "M-R" CHR$(144) CHR£(7) CHR$(16) 
120 INPUT# 1, A$ 

130 PRINT A$ 


Wir erhalten so auf einfache Weise den Namen der Diskette (16 
Zeichen, aufgefüllt mit 'Shift Space’). Damit kann man vom 
Programm her überprüfen, ob die richtige Diskette eingelegt 
ist. 


Auf diese Weise können auch die Diskettenpuffer gelesen 
werden, wenn man dem DOS auf die Spur kommen will. Ebenso 
besteht die Möglichkeit, Teile des DOS, die man nach eigenen 
Wünschen manipulieren will, vom ROM in einen Pufferspeicher 
zu kopieren, dort entsprechend zu ändern und dann zur 
Ausführung zu bringen. Doch dies gehört bereits in die beiden 
nächsten Abschnitte. 


2.4.2 Der Memory-Write-Befehl M-W 


Der gegensätzliche Befehl zum Memory-Read ist der Befehl zum 
Schreiben von Daten in den DOS-Speicher, Memory-Write, 'M-W'. 
Beschreiben läßt sich natürlich nur das DOS-RAM -  Zeropage, 
Stack und Pufferspeicher sowie evtl. die Ein/Ausgabe-Bau- 
steine. Hier ist von vorneherein an die Möglichkeit gedacht 
worden, mehrere aufeinder folgende Bytes mit einem Befehl zu 
schreiben. Die Syntax sieht so aus: 
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M-W CHR# (LO) CHR* (HI) CHRE (ANZAHL) CHR$(DATA1) CHR$((DATA2) 


Dabei können soviele Daten übergeben werden, wie in Anzahl 
spezifiziert ist, theoretisch also 255, da der Eingabepuffer 
jedoch nur 40 Zeichen faßt, ist die Anzahl auf 34 Bytes pro 
Befehl beschränkt. Eine mögliche Anwendung des Befehls dient 
zum Ändern der Gerätenummer der Floppy (siehe Programm  'DISK 
ADDR CHANGE’, Kapitel 4.2.3). Die Adresse steht in zwei 
Speicherstellen in der Zeropage. In Adresse $77 gleich 119 
steht die Geratenummer plus $20 gleich 32 für LISTEN, also 
für den Empfang von Daten vom Computer. In der  darauf- 
folgenden Adresse steht die Gerätenummer plus $40 gleich 64 
für TALK, also fürs Senden von Daten zum Computer. Da die 
Adressen separat gespeichert sind besteht also die 
Möglichkeit, für Senden und Empfangen verschiedene Adressen 
zu verwenden. Im folgenden Beispiel wird die Empfangsadresse 
auf 9 und die Sendeadresse auf 10 gesetzt. 


100 DPEN 1,8,15 

110 PRINT# 1, "M-W" CHR$(119) CHR£(O) CHR£(2) 
CHR$ (9+32) CHR$(10+64) 

120 CLOSE 1 

140 OPEN 1,9,15 

150 OPEN 2,10,15 

160 PRINT# 1,"IO" 

170 INPUT# 2, A$,B$,C$,D$ 

180 PRINT Af "," BS "," C$ "," D$ 


00, OK,00,00 


Programme können Sie so jedoch nicht laden, hier bei ja der 
Dateinamen gesandt wird und unter der selben Adresse versucht 
wird, das Programm zu laden. 


Das Ändern der Geräteadresse ist dann erforderlich, wenn Sie 
mehr als eine Floppy gemeinsam an einem Rechner betreiben 
wollen. Dazu ändert man die Geräteadressse der zweiten Floppy 
auf 9. Diese softwaremäßige Anderung bleibt jedoch nur 
solange erhalten, bis ein Reset (z.B. durch Ausschalten 
erfolgt). Soll die Änderung dauerhaft sein, kann dies im 
Gerät durch öffnen von Drahtbrücken geschehen. 


Da viele Parameter des DOS im RAM stehen, können wir 
weitgehend die Funktion des DOS abändern, z.B. die 
Schrittweite, mit der die Sektoren in einem Track belegt 
werden (Adresse $69 gleich 105, enthält normalerweise 10). 
Ebenso können wir die Anzahl der Leseversuche bestimmen, ehe 
eine Fehlermeldung erzeugt wird (Adresse $A gleich 106, 
Inhalt ist 5). Weitere Adressen von Parametern finden Sie in 
Kapitel 3.1.2. 


2.4.3 Der Memory-Execute-Befehl M-E 


Mit diesem Befehl nun können wir Maschinenprogramm im 


98 


DOS-Speicher aufrufen und ausführen. Die Programme müssen mit 
RTS (Return from Subroutine, #60) abgeschlossen sein. Die 
Syntax des Befehls lautet 


M-E CHRE£ (LO) CHR# (HI) 


Dabei sind LO und HI wieder Low- und Highbyte der 
Startadresse der  Maschinenroutine. Es besteht sowohl die 
Möglichkeit, Routinen des DOS-ROMs aufzurufen als auch eigene 
Routinen mit 'M-W' in einen Pufferspeicher zu schreiben und 
dort auszuführen. Als Beispiel dazu sehen wir einmal, wie man 
eine Routine aufrufen kann, die eine Fehlermeldung erzeugt. 
In Adresse $EFC9 steht z.B. der Aufruf zur Meldung 72, "disk 
full’. Der Befehl sieht dann so aus: 


100 OPEN 1,8,15 

110 PRINT# 1, "M-E" CHR$(201) CHR#(239) 
120 INPUT# 1, A$,B$,C$,D$ 

130 PRINT At "," B$ "," C$ "," D$ 


In Zeile 110 wird die Adresse $EFC9 in Lo-Byte $C? gleich 201 
und Hi-Byte $EF gleich 239 zerlegt und als Parameter des 
'M-E'-Befehls gesandt. Dann wird der Fehlerkanal abgefragt 
und die Meldung ausgegeben. 


72, DISK FULL ,00,00 


Will man eigene Programme in der Floppy ablaufen lassen, so 
wird man Sie in einen der Pufferspeicher schreiben und dort 
mit "MEI aufrufen. Soll dieses Programm öfter benutzt 
werden, so kann man den Inhalt des Puffers auf einem Block 
der Diskette speichern. Er kann dann später mit dem 
'B-E'-Befehl ausgeführt werden, der den Inhalt des Blocks in 
den Puffer liest und dann die Routine  aui--.tisch startet. 
Als Anregung für eigene Programme im DOS können Sie ja einmal 
versuchen, das Directory in einer anderen Form auszugeben, 
die zusätzliche Farameter ähnlich wie im Programm in Kapitel 
4.1.1. Zusätzlich könnte man noch die Anzahl der Dateien auf 
der Diskette zählen und mit ausgeben. Bei der Realisierung 
solch einer Routine können Sie sich am DOS-Listing 
orientieren, wie dort das Directory erzeugt wird. Ist man 
sich über das neue Format des Directorys im klaren, dürfte es 
keine Schwierigkeit mehr sein, die zusätzlichen Parameter, 
evtl. mit einer überschrift, aus den Directoryeinträgen zu 
entnehmen und im gewünschten Format bereitzustellen. 


2.4.4 Die User-Befehle U 


Mit den  User-Befehlen haben wir die zweite Möglichkeit, 
Programme in der Floppy auszuführen. Die User-Befehle haben 
folgende Syntax: 


UX 
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Dabei kann X für einen Buchstaben von A bis J oder wahlweise 
eine Ziffer von 1 bis 9 und σ΄ (anstelle von 10) stehen. 
Beim Aufruf des Befehls wird zu folgenden Adressen im DOS 


gesprungen: 


UA Ui $CDSF Ersatz für 'Block-Read' 
UB U2 $DC97 Ersatz für 'Block-Write' 
UC US $0500 

UD U4 #0503 

UE US $0506 

UF US $0509 

UG U7 $050C 

UH Us $050F 

UI U9 ΦΕΕΟΙ 

Ud : $EAAO Einschalt-Reset 


Die Befehle U1 und U2 bzw. UA und UB kennen wir bereits; sie 
dienen als Ersatz für  'Block-Read' und  'Block-Write'. Die 
Befehle US bis UB bzw. UC bis UH springen in den Puffer 2 ab 
Adresse $500 gleich 1280 (siehe Kapitel 2.1). Will man 
mehrere Befehle benutzen, kann dort eine Sprungtabelle auf 
die einzelnen Routinen stehen; wird bloß ein User-Befehl (U3) 
benutzt, kann das Programm direkt bei $500 beginnen. 


Der User-Befehl UJ springt zum Resetvektor; damit wird die 
Floppy in den Einschaltzustand versetzt. 


100 OPEN 1,8,15 
110 PRINT# 1, "UJ" 

120 FOR I=1 TO 1000 : NEXT 

130 GET# 1, ΑΦ : PRINT A$; «ΙΕ ST <> 64 THEN 130 


73,CBM DOS V2.6 1514,00,00 


Zeile 120 wartet den Reset der Floppy ab. Dann wird in Zeile 
130 die Einschaltmeldung der Floppy abgeholt. 


Bei der Benutzung der User-Befehle können noch Parameter an 
die Routinen mit übergeben werden. Der komplette 
Befehlsstring wird im Eingabepuffer ab Adresse $200 gleich 
912 abgelegt. Als Parameter waren z.B. Adressen, Befehlskodes 
und Dateinamen denkbar. Dadurch können die User-Befehle 
benutzt werden, um den Befehlsatz der Floppy zu erweitern 
oder um eigene Dateistrukturen zu verwirklichen. Sämtliche 
User-Befehle lassen sich durch "M-E'-Befehle mit den 
entsprechenden Adressen ersetzen; der User-Aufruf ist doch 
kürzer und übersichtlicher. 
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Kapitel 3: Technik der Floppy und der Diskette 


3.1 Der Aufbau der der VC 1541 
S. 1.1 Blockschaltbild der Floppy 
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3.1.2 Memory-Map des DOS - ROM, RAM, I/O 


Die Speicherbelegung der Floppy VC 1541 


65939 £FFFF 


16 K 


Betriebssystem 


49152 ΦΓΟΟΟ 


7182 ΦΙΓΟΕ 
VIA Disk Control 
7168 1500 


6159 $180F 
VIA serieller Bus 
6144 - #1800 
2047 ΟΕΕ 
2 K 
RAM 
ο ΦΟΟΟΟ 
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Die Belegung der I/0-Ports (VIA 6522) 


VIA 6522 1, Port für seriellen Bus 


#1800 Port B 
#1800 Fort A 
#1802 Datenrichtung Port B 
#1803 Datenrichtung Port A 


FB O: DATA IN 
PR 1: DATA OUT 
FB 2: CLOCK IN 
FB 3: CLOCK OUT 


FB 4: ATN A 
FB 5,6: Geräteadresse 
CB 2: ATN IN 


VIA 6522 2, Fort für Motor- und Schreib/ Lesekopfsteuerung 


*1COO Port B, Steuerport 

$S1CO1 Port A, Daten vom und zum Schreib/ Lesekopf 
#1C02 Datenrichtung Port B 

Z1C03 Datenrichtung Port A 


FB O: STP I 

FB 1: STFO Schrittmotor für Kopfbewegung 
FB 2: MTR Laufwerksmotor 

FB Z: ACT LED am Laufwerk 

PB 4: WPS Write Protect Switch 

FB 7: SYNC 

CA 1: Byte Ready 


CA 2: SOE 
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Die Belegung 


$00 
$01 
$02 
$03 
$04 
$06 
$08 
904 
SOL 
$0E 
$12 
$14 
$16 
$20 
$30 
$39 
424 
$3D 
$ SF 
445 
447 
$49 
844 
451 
$59 
$580 
$5F 
$77 
$78 
$79 
$7A 
$7C 
$7D 
$7F 
$80 
$81 
$82 
$83 
$84 
$85 
$8B 
$94 
$99 
$9B 
$9D 
$9F 
$Al 
444 
$85 
$B5 
$BB 
851 


der wichtigsten Speicherstellen 


Befehlskode für Puffer 0 
Befehlskode für Puffer 1 
Befehlskode für Puffer 2 
Befehlskode für Puffer 3 
Befehlskode für Puffer 4 
- $07 Track und Sektor für Puffer O0 
- 409 Track und Sektor für Puffer 1 
- $0B Track und Sektor für Puffer 2 
- $0D Track und Sektor für Puffer 3 
- $0F Track und Sektor für Puffer 4 
- $13 ID für Laufwerk 0 
- $19 ID für Laufwerk 1 
- $17 ID 
= $21 Flag für Kopftransport 
- 451 Pufferzeiger für Disk-Controller 


Konstante B, Kennzeichen für Beginn Datenblockheader 
Parity für Datenpuffer 
Drivenummer für Disk Controller 
Puffernummer für Disk Controller 
Anzahl der Sektoren pro Track bei der Foraatierung 
Konstante 7, Kennzeichen für Beginn Datenblock 
Stackpointer 
Schrittzähler für Kopftransport 
aktuelle Tracknummer bei der Formatierung 
Anzahl der Leseversuche (5) 
Schrittweite bei Sektorzuteilung (10) 
- $70 Zeiger auf Adresse z.B für M- und B-Befehle 
Gerätenummer + $20 für Listen 
Gerätenummer + $40 für Talk 
Flag für Listen (1/0) 
Flag für Talk (1/0) 
Flag für ATN vom seriellen Bus empfangen 
Flag für EOI vom seriellen Bus 
Drivenummer 
Tracknummer 
Sektornummer 
Kanalnummer 
Sekundäradresse 
Sekundäradresse 
Datenbyte 
- $8D Arbeitsspeicher für Division 
- $95 aktueller Pufferzeiger 
- 494 Adresse Puffer 0 $300 
- $9C Adresse Puffer 1 $400 
- $9E Adresse Puffer 2 $500 
- $00 Adresse Puffer 3 $600 
- $42 Adresse Puffer 4 $700 
- $804 leiger auf Eingabepuffer $200 
- $86 leiger auf Puffer für Fehlermeldung $2D5 
- $BA Record & lo, Blockzahl lo 
- SEO Record # hi, Blockzahl hi 
- 456 Schreibzeiger für Rel-Datei 
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179 
212 
213 
214 
215 
231 
249 
$100 
$200 
$244 
$258 
$259 
$25A 
$27 
$278 
$297 
$280 
$285 
$2D3 
$2FA 
$300 
$400 
$500 
$600 
$700 


$145 
$228 


$284 
$289 
$2F9 
$2FC 
$3FF 
$4FF 
$5FF 
$5FF 
$5FF 


£C7 - $CC 

$D4 

$D5 

$D6 

$D7 

$E7 

$F9 
256-325 
312-552 
SEL 
500 
601 
602 
628 
632 
663 
540-6544 
645-649 
725-761 
762/764 
768-1023 
1024-1279 
1280-1535 
1336-1721 
1792-2047 


Recordlänge für 'REL'-Dateien 
leiger in Datensatz bei REL-Datei 
Side Sektor Numaer 
Zeiger auf Datenblock im Side-Sektor 
leiger auf Datensatz in REL-Datei 
Filetyp 
Puffernummer 
Stack 
Puffer für Befehlsstring 
Filetyp 
Recordlänge 
Track Side-Sektor 
Sektor Side-Sektor 
Länge der Eingabezeile 
Zahl der Dateinamen 
Filebetriebsart 
Track eines Files 
Sektor eines Files 
Puffer für Fehlermeldung 
Anzahl freie Blocks 
Fuffer 0 
Puffer 1 
Puffer 2 
Puffer 3 
Puffer 4 


RAM 
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3.2 Die Arbeitsweise des DOS - ein überblick 


Die VC 1541 ist ein intelligentes Diskettenlaufwerk mit 
eigenem Mikroprozessor und Betriebssystem (Disk Operating 
System, DOS). Dadurch wird kein Speicherplatz und keine 
Rechenzeit des angeschlossenen Rechners benötigt. Der Rechner 
braucht der Floppy lediglich Befehle zu übermitteln, die 
diese dann selbsttätig ausführt. 


Die Floppy hat damit drei Aufgaben gleichzeitig zu erledigen: 
Zum Ersten muß sie den Datenverkehr vom und zum Rechner 
durchführen. Die zweite Aufgabe ist die Interpretation der 
Befehle und die Verwaltung von Dateien und den zugeordneten 
Ubertragungskanalen und der Blockpuffer. Die dritte Aufgabe 
ist die hardwaremäßige Bedienung der Diskette; dazu gehört 
das Schreiben und Lesen einzelner Blocks auf der Diskette 
sowie das Formatieren von Disketten. 


Diese Aufgaben muß bei der VC 1541 ein  6502-Mikroprozessor 
gleichzeitig durchführen. Dies ist nur mit Hilfe der  Inter- 
rupttechnik möglich. Nur so können drei Programme quasi 
gleichzeitig ablaufen. 


Das Hauptprogramm kümmert sich um die Interpretation und 
Ausführung der übermittelten Befehle. Das Empfangen von Daten 
und Befehlen vom Rechner wird nun per  Interrupt erledigt. 
Will der Rechner ein Peripheriegerät ansprechen, so sendet er 
einen Impuls über die Leitung ATN (Attention, Achtung, siehe 
auch Kapitel 5.1). Damit löst er bei der Floppy einen  Inter- 
rupt aus. Die Floppy unterbricht nun ihr laufendes Programm 
und merkt sich, daß der Rechner Daten senden wollte. Jetzt 
wird erst der ursprüngliche Befehl abgearbeitet. Danach kann 
die Floppy nun weitere Daten und Befehle vom Rechner annehmen 
und verarbeiten. Ist der Befehl abgearbeitet, so steht die 
Floppy in einer Warteschleife, bis neue Befehle vom Rechner 
kommen. 


Das Abarbeiten der Befehle in dieser Ebene beschränkt sich 
jedoch auf die logische Verarbeitung der Befehle, die 
Verwaltung der übertragungskanále vom und zum Rechner sowie 
die Bereitstellung und Abholung der zu schreibenden bzw. zu 
lesenden Daten in die dafür vorgesehenen Pufferspeicher. Die 
Aufgaben eines ‘Disk Controllers’, das Formatieren von Dis- 
ketten sowie das Schreiben und Lesen einzelner Blocks, müssen 
ebenfalls vom Prozessor ausgeführt werden. 


Diese Aufgaben werden wieder interruptgesteuert durchgeführt. 
Durch einen eingebauten Zeitgeber &('Timer') wird ca. alle 14 
Millisekunden das reguläre Programm der Floppy unterbrochen 
und in ein Frogramm verzweigt, das die Aufgaben eines 
Disk-Controllers erfüllt. Die Kommunikation zwischen den 
beiden eigenständigen Programmen geschickt über gemeinsam 
benutzte Speicherstellen, in die das Hauptprogramm Befehls- 
kodes für das Disk-Controller-Programm ablegt. Wird nun das 
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Interruptprogramm aktiv, so schaut es in diesen Speicher- 
stellen nach, ob irgendwelche Aktivitäten verlangt werden. 
z.B. eine Diskette formatieren. Ist dies der Fall, so werden 
z.B. Laufwerks- und Kopfmotoren in Bewegung gesetzt. Nach 
Beenden der Interruptroutine schaut das Hauptprogramm wieder 
in bestimmten Speicherstellen nach, ob die Aufgabe vom 
Disk-Controller schon erledigt wurde oder ob noch weiter 
gewartet werden muß. Ebenso wird auf diese Weise dem 
Hauptprogramm mitgeteilt, ob irgendwelche Fehlerbedingungen, 
z.B. ein Read Error aufgetreten sind oder ob die 
Schreibschutzmarke geklebt war. Das Hauptprogramm kann dann 
entsprechend reagieren und z.B. eine Fehlermeldung bereit- 
stellen. 


Bei den großen CBM-Floppys wird als Disk-Controller ein 
eigener, zweiter Mikroprozessor von Typ 6504 eingesetzt. Die 
Kommunikation geschieht wieder über gemeinsame  Speicher- 
stellen. 


Eine übersicht über die Speicherbelequng des DOS sowie der 


Ein-Ausgabe Bausteine zur Bedienung von Diskette und 
seriellem Bus finden Sie im vorhergehenden Kapitel. 


Diese übersicht über die Arbeit des DOS kann natürlich nur 


einen groben Überblick geben. Wollen Sie sich genauer 
informieren, so können Sie das DOS-Listing der VC 1541 in 
Kapitel 3.5 zu Rate ziehen, in dem das komplette 


16Kk-Betriebssystem ausführlich dokumentiert ist. 
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3.4 Der Aufbau der VC 1541-Diskette 


Die Diskette der VC 1541 ist in 35 Spuren mit je 17 bis 21 
Sektoren aufgeteilt. Die Gesamtzahl der Sektoren beträgt 483. 
Da das Directory die gesamte Spur 18 belegt, stehen 664 
Datenblöcke zur Verfügung, die jeweils 256 Bytes aufnehmen 
können. Die Spuren sind wie folgt belegt: 


EAM ANZAHL DER SEKTOREN 


1 BIS 17 21 
18 BIS 24 19 
29 BIS 30 18 
31 BIS 35 17 


Die unterschiedliche Anzahl der Sektoren je Spur ist bedingt 
durch die Verkürzung der Spuren zum Mittelpunkt hin. 


3.4.1 Die BAM der VC 1541 


BAM ist die Abkürzung für Block-Availability-Map. Sie hat die 
Aufgabe, die Blöcke als belegt oder frei zu kennzeichnen. 
Nach jeder Manipulation der Blöcke (speichern, löschen, usw) 
wird die BAM aktualisiert. Wenn anhand der BAM festgestellt 
wird, daß ein zu speicherndes File mehr Blöcke benötigt, als 
verfügbar sind, so wird eine Fehlermeldung ausgegeben. Beim 
Erüffnen eines Files wird die BAM in den DOS-Speicher 
übernommen, parallel mit den übertragungsbefehlen 
aktualisiert und beim Schließen der Datei zurück auf die 
Diskette geschrieben. Befehle, die Schreib- oder 
Löschfunktion haben, lesen die BAM, aktualisieren und 
schreiben sie wieder zurück. Die BAM ist auf Spur 18, Sektor 
O folgendermaßen organisiert: 


Spur 18, Sektor O 
BYTE INHALT BEDEUTUNG 


(00-01) +12,+O1 


Spur und Sektor des ersten 
Blocks der Directory 
ASCII-Zeichen "A"; zeigt 
1541-Format an 

Null-Flag für zukünftige 
Benutzung 

Bitmuster der belegten bzw. 
nicht belegten Blöcke * 


($02) $41 


($03) 800 


($04—$8F) 


*) 1 - Block nicht belegt ; O - Block belegt 
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Das Bitmuster der Blöcke ist so organisiert, daß jeweils 4 
Bytes eine Spur kennzeichnen. Wie es der folgenden Tabelle zu 
entnehmen ist, enthält das erste der 4 Bytes die Anzahl der 
freien Blöcke dieses Spur. Die restlichen 3 Bytes (24 Bits) 
kennzeichnen die freien oder belegten Blöcke dieser Spur. 


Struktur des BAM-Eintrags einer Spur: 


INHALT 


Zahl der verfügbaren Blöcke der Spur 


Bitmuster der Sektoren 0-7 
Bitmuster der Sektoren 8-15 
Bitmuster der Sektoren 16-23 


4 Bytes einer Spurkennzeichnung in der BAM: 


Spur 18, Sektor O, Byte 4-7 (Spur 1) 


00001010 00000000 00000011 11111111 
($06) ($00) ($00) ($3F) 


10 freie 1 
Blöcke O 


Durch Programmierung einer Schleife, die das jeweils 1. Byte 
liest und aufaddiert, ist es möglich, die freien Blöcke der 
gesamten Diskette zu ermitteln. 


3.4.2 Das Directory 


Das Directory ist das "Inhaltsverzeichns" der Diskette. Sie 
enthält folgende Informationen: 


- Diskettenname 

- ID der Diskette 

- Nummer der DOS-Version 
- Filenamen 

- Filetypen 

- Blocks pro File 

- freie Blöcke 


Dieses Directory wird mit dem Befehl “LOAD "$",8B' in den 
Speicher geladen. Dabei wird ein evtl. gespeichertes Programm 
zerstórt' Mit dem Befehl ‘LIST’ kann sie dann auf dem 
Bildschirm ausgegeben werden. 

Das Directory belegt die gesamte Spur 18 der Diskette. Dem 
Vorspann der Directory folgen die Fileeinträge. Jeder Block 
nimmt maximal 8 Fileeinträge auf. Da die BAM und der Vorspann 
der Directory 1 Block belegen, stehen auf dieser Spur noch 18 
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Blöcke für Fileeinträge zur Verfügung. Es können demnach auf 
einer Diskette maximal 144 Files (18 Blöcke mit je 8 
Einträge? verwaltet werden. 


Format des Vorspanns der Directory: 


Spur 18, Sektor O 


BYTE INHALT BEDEUTUNG : 


144-161 ($90-$01) Name der Diskette (ergänzt 
mit "SHIFT SPACE") 
162,163 ($02,303) ID-Kennzeichnung der Disk 


164 ($64) ZOO "SHIFT SPACE" 

165,166 (£$05,906)| $32,$41 ASCII-Zeichen "2A" (Format) 

167-170 (£A7-$AA) FAO "SHIFT SPACE" 

171-255 ($AB-$FF)} $00 wird nicht benutzt, ist mit 
Nullen ausgefüllt * 


* Die Bytes 180 bis 191 können auf manchen Disketten den 
Inhalt "BLOCKS FREE" haben 


Der Name der Diskette 


Bei der Formatierung wird der Diskettenname, der aus maximal 
16 Zeichen besteht, festgelegt. Werden weniger als 16 Zeichen 
angegeben, so wird der Rest mit  "SHIFT SPACE" ($60) 
ausgefüllt. Die folgende BASIC-Routine liest den Namen und 
speichert ihn in eine String-Variable: 


100 OPEN 15,8,15,"IO" :REM BEFEHLSKANAL 15 GFFNEN UND 
NEU INITIALISIEREN . 
110 OPEN 2,8,2,"#" «ΚΕΠ DATENKANAL 2 OFFNEN 


120 FRINT#15,"B-R"5;2;0;18;0:REM SPUR 18, BLOCK O LESEN 
UND IN KANAL 2 ABLEGEN 
130 PRINT#15, "B-P"52; 144 :REM BUFFER-POINTER AUF BYTE 144 
140 DN$-"" :REM STRING DN$ LÖSCHEN 
150 REM SCHLEIFE ZUM EINLESEN DER 16 BYTES DES NAMENS 
160 ::FOR I-1 TO 16 


170 2:GET#2,X# ;REM LESEN EINES BYTES 

180 ::IF ASC((OX$)-160THEN200: REM SHIFT-SPACE NICHT ÜBERNEHMEN 
190 ::DNÉ$-DN$-4Xf : REM BYTE AN DN$ ANHÄNGEN 

200 NEXT I 

210 CLOSE 2:CLOSE 15 :REM KANALE SCHLIESSEN 


Nach Ablauf dieser Routine steht der Diskettenname in dem 
String DN$ zur Verfügung. Diese Routine kann z.B. in 
Anwendungsprogrammen sinnvoll sein, um festzustellen, ob die 
richtige Diskette eingelegt ist. 
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ID-Kennzeichnung der Diskette 


Die Disketten-ID besteht aus 2 Zeichen und wird beim 
Formatieren der Diskette bestimmt. Anhand dieser 
Kennzeichnung stellt das DOS den Wechsel der Diskette fest, 
was zum Initialisieren der neuen Diskette notwendig ist. Als 
Initialisieren bezeichnet das Einlesen der BAM in den 
Speicher des Laufwerkes. Damit das DOS stets die aktuelle BAM 
im Speicher vorfindet, sollte die ID beim Formatieren immer 
unterschiedlich sein. Sollte dies nicht der Fall sein, so muß 
nach einem Diskettenwechsel mit dem Befehl INITIALIZE "von 
Hand" initialisiert werden. 


5.4.2 Das Format deg Directory 
Die Blöcke 1 bis 19 der Spur 18 beinhalten die Einträge der 
Files. Die ersten beiden Bytes eines Blocks zeigen auf den 


Block mit den nächsten Fileeinträgen. Sollte kein weiterer 
Block folgen, so beinhalten diese beiden Bytes #00 und #FF. 


Spur 18, Sektor 1 


O, 1 ($00,401) 


Spur und Sektor des nachsten Blocks 
der Directory 


2-21 (402-#1F) Eintrag des 1. Files 
34-63 ($22-$3F ) Eintrag des 2. Files 
66-95 ($42-$5F) Eintrag des 3. Files 


98-127 ($62—-$7F) 
150-199  (£82-$9F) 
162-191  ($02-$BF) 
194-223  (£C2-$DF) 
226-255 (#E2-$FF) 


Eintrag des 4. Files 
Eintrag des 5. Files 
Eintrag des 4. Files 
Eintrag des 7. Files 
Eintrag des 8. Files 


Format eines Directory-Eintrags 


Jeder Fileeintrag besteht aus 30 Bytes, deren Funktion im 
Folgendem beschrieben sind: 


($00) 
1,2 ($01,402) 
3-18 (405-412) 
19,20 ($13,414) 


Filetyp 

Spur und Sektor des ersten Datenblocks 
Filename (ergänzt mit "SHIFT SPACE") 
Nur bei relativen Files benutzt 

(Spur und Sektor des ersten Side- 
Sector-Blocks) 

Nur bei relativen Files benutzt 


21 (#15) 


(Recordlänge) 

Nicht benutzt 

Spur und Sektor des neuen Files beim 
überschreiben mit dem Klammeraffen 
Anzahl der Blocks im File (Low-Byte, 
High-Byte) 


22-25  ($16-$19) 
($1A-$#1B) 


415-519) 


Kennzeichnung des Filetyps 


Das Byte O des Fileeintrags kennzeichnet den Filetyp. Zur 
Kodierung der 5 Filetypen werden die Bits 0-2 benutzt. Das 
Bit 7 kennzeichnet, ob das File ordnungsgemäß geschlossen 
ist. Wird ein File geöffnet, so wird der entsprechende 
Filetyp gesetzt. Beim Schließen dieses Files wird dann das 
Bit 7 gesetzt. Ein nicht geschlossenes File wird im 
aufgelisteten Directory mit einem Stern vor dem Filetyp 
gekennzeichnet. Wird z.B. Ein sequentielles File "TEST" 
geöffnet und anschließend das Directory aufgelistet, so wird 
dieses File so im Directory dargestellt: 


12 "TEST" *SED 
Wird das File wieder geschlossen, so erscheint der Stern bei 
nochmaligem Auflisten des Directorys nicht mehr. Wird dieses 


File nicht geschlossen und später nochmals eröffnet, so 
erschient die Fehlermeldung "WRITE FILE OPEN". 


Der Filetyp 


Um die Funktion des Byte O im Fileeintrag, also den Filetyp, 
richtig zu verstehen, folgt nun eine Tabelle aller Filetypen: 
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Filetyp Bitmaske geöffnet Bitmaske geschlossen 
7654 3210 HEX 7654 3210 HEX 


DELeted 0000 1000 0000 


SEQuential 0000 1000 0001 
PRoGr am 0000 1000 0010 
USeR 0000 1000 0011 
RELative 0000 1000 0100 


Vieleicht haben Sie erkannt, daß die Bits 3 bis 6 ohne 
Funktion sind. Als wir dies mit Hilfe des DOS-Listings 
nachprüften, stellten wir fest, daß das Bit ὁ doch eine 
Funktion hat: 


DAS BIT 6 DES FILETYPS KENNZEICHNET EIN GESCHUTZTES FILE ! 


Setzt man dieses Bit auf 1, so kann das entsprechende File 
nicht mehr gelöscht werden. Dies wird im aufgelisteten 
Directory mit dem Zeichen i ἂν hinter dem Filetypen 
gekennzeichnet. 

Da das Setzen dieses Bits eine Folge von komplizierten 
Befehlen erfordert, finden Sie in Kapitel 4 dieses Buches ein 
Frogramm, mit dem Sie Files schützen, freigeben und löschen 
können. 


Spur und Sektor des ersten Datenblocks 


Die Bytes 1 und 2 des Fileeintrags weisen auf den ersten 
Datenblock des Files. Dabei ist im Byte 1 die Spur und in 
Eyte 2 der Sektor dieses Blocks enthalten. Dieser erste 
Datenblock enthält dann in den ersten beiden Bytes die 
Adresse des zweiten  Datenblocks, usw. Um den letzten 
Datenblock zu identifizieren, enthält dieser den Wert $00 im 
ersten Byte. Das zweite Byte enthält die Anzahl der Bytes, 
die in diesem Block vom File belegt sind. 

Diese Verkettung läßt sich mit Hilfe des DOS-MONITORS, der in 
diesem Buch enthalten ist, qut verdeutlichen.: 


>:BO AO ΑΟ ΑΟ ΑΟ ΑΟ OO OO OO iia 

^:BB 00 00 00 00 OO OO OB OO ........ 

»:CO0 OO OO 81 13 09 54 31 32 .....Ti2 

>:C8 2F 53 ZO 31 ΑΟ ΑΟ AO AO 7501 

>: ΡΟ 

>: DÉI Filetyp 

^:EO Spur 1. Block 
>:E8 | Sektor 1. Block 
>:FO 48 41 4E 47 45 OO OO OO HANGE... 

>:F8 00 00 OO OO oo 00 [oa[ogt———————————— Anzahl Blöcke 


Dies ist ein Auszug aus dem Directory (Spur 18, Sektor 1) der 
TEST/DEMO-Diskette. Verfolgen wir nun die Organisation des 
Files DISK ADDR CHANGE. Der Eintrag dieses Files beginnt bei 
Byte #E2 und endet mit Byte $FF. Dies ist ein PRG-File, was 
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an dem Filetyp $82 in Byte #E2 zu erkennen ist. Dieses File 
umfasst 4 Blöcke auf der Diskette. Dies ist an den Bytes  $FE 
und FF ersichtlich. Die Bytes $E3 und SEA des Eintrags 
adressieren den ersten Datenblock des Files (#10, $00, 
entspricht Spur 16, Sektor 0). 

Schauen wir uns nun den Ausschnitt dieses Blocks einmal an: 


2:00 o οὐ] o1 04 OF 04 64 OO ......5. 

>: Op 5°39 34 36 38 2C 31 .59468,1 “Adresse 2. Block 
>:10 z Se 39 04 &E OO 99 22 2.9...." 

>:18 93 13 11 11 11 11 44 52 ......DR 

»:20 49 56 45 20 41 44 44 52 IVE ADDR 

»:28 45 53 53 20 43 48 41 4E ESS CHAN 

»:X0 47 45 20 50 52 4F 47 52 GE PROGR 

»:28 41 4D 22 00 59 04 6F OO AM".Y./. 

»:40 99 22 11 54 55 52 4E 20 .".TURN 

»:48 ΔΕ 46 46 20 41 AC AC 20 OFF ALL 


Dieser Block enthält den ersten Teil des Programms, das in 
der linken Charakter-Darstellung schwer zu lesen ist. Das 
liegt daran, daß BASIC-Frogramme auf Diskette genauso 
abgelegt werden, wie im Speicher des Rechners. Die 
BASIC-Befehle werden in Form eines Ein-Byte-Codes (Tokens 
genannt) abgekürzt. Somit ist nur der Text zu erkennen. Die 
ersten beiden Bytes dieses Datenblocks weisen nun auf den 
zweiten Datenblock (#10 und *$Oñ, also Spur 16, Sektor 10), 
dessen Auschnitt nun folgt: 


>:00 [10 14| 34 το 00 1D 05 on ..40... 

^:08 OO BD 20 33 το 30 ZA 20 .. 200: Adresse 3. Block 
>10 BF 20 46 49 AE 44 20 44 . FIND D 

52 49 56 45 20 54 59 50 RIVE TYP 

45 00 39 OS AA OO 8D 20 E.9. .. 

36 30 το 3A 20 BF 20 43 800: . C 

41 AE 47 45 20 41 44 HANGE AD 

44 52 45 53 53 00 68 05 DRESS. (. 

B4 OO 99 22 11 54 48 45 ..".THE 

20 53 45 AC 45 43 54 45 SELECTE 


EEE 
A P iN 4 FJ MN e 


UOCDOMDOM 
ὮὮ 
D 


Das Programm wird in diesem Block fortgesetzt. Die Bytes $00 
und #01 zeigen nun auf den 3. Datenblock des Files ($10, $14, 
Spur 16, Sektor 20): 


»:00 [10 08] 31 zo so zo oo 23 ..1000.4 

2308 06 54 8B B2 .T.. C 2 Adresse 4. Block 
^:10 35 34 20 A7 20 4D 54 B2 54 MT 

^:18 31 31 59 3A 20 ΒΕ 3A 20 119: .: 

^:20 32 30 33 31 20 56 32 2E 2031 V2. 

>:28 36 00 45 06 SE Οἱ BB 20 6.Ε. .. 

»:30 43 B2 32 32 36 20 A7 20 C 226 

^:38 4D 54 B2 55 30 3A 20 BF MT 50: . 

>:40 3A 20 32 30 34 30 20 56 : 2040 V 

>:48 31 2E 32 00 67 06 68 O1 1.2. .t. 


Dies ist der vorletzte Block des Programms. Sie haben sicher 
erkannt, daß die Datenblöcke zwar in der gleichen Spur, 
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jedoch nicht macheinander angeordnet sind. Das heißt aber 
nicht, daß die Belegung der Blöcke ohne Sytem erfolgt. Der 
erste Datenblock ist der Block O. Der nächste ist der Block 
10, also 10 Blöcke weiter. Es werden immer 9 Blöcke 
übersprungen, was sich im weiteren Verlauf bewahrheitet. Der 
3. Datenblock ist der Block 20. Das DOS fängt wieder beim 
ersten Block an, wenn der errechnete Block den höchsten Block 
überschreitet. Weil sich die Spur 16 über 21 Blöcke 
erstreckt, ist der letzte Datenblock der Block 8.Die ersten 
beiden Bytes dieses 3. Blocks adressieren Ihn: 


»:00 |oo|F8 5A 42 B2 31 20 A7 . ZB 1 

>08 20 34-54 ZO OO 14 07 ΑΕ 440... Zeichen letzter 
»:10 οἱ ae 20 53 54 20 A7 20 .. ST Block 

>:18 31 30 30 30 00 45 07 B8 1000.E. 

>20 01 98 31 35 20 22 4D 2D ..15,"M- Anzahl belegter 
228 52 22 C7 28 31 37 32 29 R" (172) Bytes dieses 
>:30 C7 28 31 36 29 SA ΑΙ 23 (16): # Blocks 

2158 31 35 2C SA 45 24 3A 5A 15,ZC$:Z 

>:40 43 B2 C6 28 5A 45 24 AA C #(ZC# 

>:48 C7 28 30 29 29 OO 66 07 qg(0)).&. 


Hier ist das Ende des Programms durch den Wert #00 im Byte 
$00 gekennzeichnet. Das Byte 401 gibt die Anzahl der Bytes 
an, die von dem Programm in diesem letzten Block belegt sind 
($FB enstpricht 248 Bytes). Nun läßt sich leicht die Größe 
des Programms ermitteln: 


3 Blöcke mit je 254 Bytes = 762 Bytes 

letzter Block = 248 Bytes 

Größe des Programms: 1100 Bytes 

Der Filename 

Der Filename ist in den Bytes 3-18 des Fileeintrags 


enthalten. Er umfasst maximal 16 Zeichen. Sollte der Name 
kleiner als 16 Zeichen sein, so wird der Rest wie beim 
Diskettenname mit "SHIFT SPACE" ($40) ausgefüllt. 


Spur und Sektor des neuen Files beim "überschreiben" 


Wird ein File durch Angabe des Klammeraffens vor dem 
Filenamen überschrieben, so wird das neue File zuerst 
komplett abgespeichert. Es wird aber für dieses File kein 
Eintrag erstellt, weil das File ja bereits unter diesem Namen 
existiert. Die Adresse des ersten Blocks des neuen Files wird 
in den Bytes 26 und 27 des Eintrags gespeichert. Ist das neue 
Programm abgelegt, wird das alte gelöscht, indem lediglich 
die bisher von diesem File belegten Blöcke in der BAM als 


frei gekennzeichnet werden. Nun wird die Adresse des ersten 
Datenblocks des neuen Files in die Bytes 1 und 2, Adresse des 
ersten Datenblocks des Files, gebracht und das File ist 
"überschrieben" 


Anzahl der Blöcke im File 


In den beiden Bytes 28 und 29 des Fileeintrags ist die Länge 
des Files in Blöcken angegeben. Eine Datei umfaßt mindestens 
einen und höchstens 644 Blöcke. Das erste Byte ist das 
Low-Byte, d.h. der rechte Teil der 2-Byte-Zahl. Das zweite 
Byte ist das High-Byte. Haben Sie z.B. mit dem DISK-MONITOR 
die Filelänge #1F,#00 ermittelt, so umfasst das File 31 
Blöcke. 
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3.4 Die Organisation von relativen Dateien 


Relative Dateien unterscheiden sich von gewöhnlichen se- 
quentiellen Dateien dadurch, daß hier auf jeden Datensatz 
direkt zugegriffen werden kann. Deshalb muß hier außer den 
Daten selbst noch zusätzlich eine Datei abgespeichert werden, 
in der steht, wo jeder Datensatz zu finden ist. 


Diese Aufgabe wird von der Floppy automatisch ohne Ihr Zutun 
erledigt. Sehen wir uns die Organisation der relativen Datei 
nun einmal etwas näher an. 


Dazu öffnen wir eine relative Datei mit einer Datensatzlänge 
von 100: 


OPEN 2,8,2, "REL-DATEI,L,"+CHR$ (100) 
und legen den Datensatz Nr. 70 an. 


OPEN 1,8,15 

PRINT#1, "P"+CHR$ (2) +CHR$ (70) +CHR$ (O) +CHRS$ (1) 
PRINT#2, "DATENSATZ 70" 

CLOSE 2 : CLOSE 1 


Der Directoryeintraq sieht dann so aus: 


»:00 .. we 84 11 OO 52 45 4C .. «ΠΕΙ 
2:08 2D 44 41 54 45 49 ΑΟ ΑΟ -DATEI 

2510 AO AO AO AO AO 11 OA 64 ..$ 
2518 00 OO OO OO OO OO 1D OO ........ 


Das erste Byte $84 kennzeichnet eine relative Datei. Die 
nächsten beiden Byte kennzeichnen den ersten Track und Sektor 
der eigentlichen Daten (#11, $00; Track 17 Sektor 0); genau 
wie bei einer sequentiellen Datei. Es folgt wieder wie üblich 
der Name der Datei (16 Zeichen, aufgefüllt mit 'Shift Space', 
$00). Jetzt folgen drei Einträge, die wir bei  sequentiellen 
Dateien nicht kennen. Die ersten beiden Byte weisen auf Track 
und Sektor des ersten sogenannten Side-Sektor-Blocks, der die 
Zeiger auf jeden Datensatz enthält und den wir gleich näher 
kennenlernen werden (#11, $00; Track 17 Sektor 11). Das 
nächste Byte enthält die Datensatzlänge, ein Wert zwischen 1 
und 254, in unserem Falle $64 gleich 100. Die Annehmlichkeit, 
auf jeden Datensatz direkt zugreifen zu können, erfordert 
eine feste Länge für jeden Datensatz, die wir beim Anlegen 
der relativen Datei definieren müssen. Die restlichen Bytes 
im Directoryeintrag haben wieder die übliche Bedeutung; so 
enthalten die beiden letzten Bytes wieder die Anzahl der 
Blocks, die durch die Datei belegt werden (lo- und hi-Byte, 
$1D und $00 gleich 29). 


Wie sieht nun so ein Side-Sektor-Block aus und welche Aufgabe 
hat er ? 


Die Side-Sektor-Blocks enthalten die Track- und Sektor-Zeiger 
auf die einzelnen Datenblocks. Wollen wir zum Beispiel den 
70. Datensatz aus unserer relativen Datei lesen, so schaut 
die Floppy im Side-Sektor-Block nach, auf welchem Track und 
Sektor der Datensatz steht und kann dann direkt diesen Block 
lesen. Dadurch wird verhindert, daß die gesamte Datei bis zum 
70. Satz gelesen werden muß. Es müssen also nur zwei Blocks 
gelesen werden, um den Datensatz zu erhalten. Nach dieser 
etwas vereinfachten Darstellung sehen wir und jetzt den 
genauen Aufbau eines Side-Sektor-Blocks an. Wir beziehen uns 
wieder auf die oben geöffnete Datei. 


2:00 00 47 OO 64 11 OA OO OO .G.%.... 


2:308 OO OO OO OO OO OO OO OO ........ 
2:10 11 OO 11 OB 11 O1 11 OC ........ 
27:18 11 O2 11 OD 11 03 11 ΟΕ ........ 
2520 11 04 11 OF 11 05 11 10 ........ 
2528 11 O6 11 11 11 07 11 12 ...... .. 
2:30 11 OB 11 13 11 Οὐ 11 14 ........ 
2558 10 08 10 12 10 06 10 10 ........ 
2:40 10 O4 10 OE 10 02 10 OC ........ 
2:48 OO OO OO OO OO OO OO OO ........ 
»:50 00 OO OO OO OO OO OO OO ........ 
>:58 OO OO OO OO OO OO OO OO ........ 
2:60 OO OO OO OO OO OO OO OO ........ 


2:68 OO OO OO OO OO OO OO OO ........ 
2:370 00 OO OO OO OO OO OO OO ........ 
»:78 OO OO OO OO OO OO OO OO ........ 
2:80 00 OO 00 OO OO OO OO OO ........ 
2:88 00 OO OO OO OO OO OO OO ........ 
>:90 00 OO OO OO OO OO OO OO ........ 
2:98 OO OO OO OO OO OO OO OO ........ 
>sAO 00 OO OO OO OO OO OO OO ........ 
25:98 OO OO OO OO OO OO OO OO ........ 
>:BO 00 OO OO OO OO OO OO OO ........ 


>:B8 OO OO OO OO OO OO OO OO ........ 
>:CO OO OO OO OO OO OO OO OO ........ 
2558 OO OO OO OO OO OO OO OO ........ 
>:DO OO OO OO OO OO OO OO OO ........ 
>:D8 00 OO OO OO OO OO OO OO ..... eae 
>:EO 00 OO OO OO OO OO OO OO ........ 
>:E8 OO OO OO OO OO OO OO OO ..... eee 


>:FO OO OO OO OO OO OO OO OO ........ 
>:F8 OO OO OO OO OO OO OO OO ........ 


Die ersten beiden Byte zeigen wie üblich auf Track und Sektor 
des nächsten  Side-Sektor-Blocks. (In unserem Beispiel 
existiert kein weiterer Side-Sektor-Block und es werden nur 
$47 = 71 Bytes genutzt.) Byte 2 enthält die Nummer des 
Side-Sektor-Blocks, O. Dazu muß man wissen, daß eine relative 
Datei maximal 6 solcher Blocks enthalten kann; die 
Nummerierung geht von O bis 35. In Byte 3 steht die 
Datensatzlänge $64 = 100. Die nächsten zwölf Byte (Nummer 4 
bis 15) enthalten jeweils Track- und Sektor-Zeiger auf die 6 
Side-Sektor-Blocks (0,0 falls der Block noch nicht angelegt 
ist). Ab Byte 16 stehen die eigentlichen Zeiger auf die 
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Daten, und zwar die Track- und Sektor-Zeiger auf die ersten 
120 Datenblöcke (in unserem Falle nur 28 Zeiger). Soll nun 
ein bestimmter Datensatz gesucht werden, so kann das DOS aus 
der Datensatznummer und der Datensatzlänge genau berechnen, 
auf welchem Block die Daten stehen und ab welcher Position 
innerhalb des Blocks der Datensatz beginnt. Nehmen wir dazu 
folgendes Beispiel: 


Wir wollen den 70. Datensatz aus unserer Datei mit einer 
Datensatzlänge mit 100 Zeichen lesen. Wir haben dann folgende 
Rechnung durchzuführen: 


(70-1) κ 100 / 254 


Wir erhalten als Ergebnis 27 und einen Rest von 42. Das DOS 
weiß nun, daß der Datensatz im 27. Datenblock ab der Position 
42+2 gleich 44 zu finden ist. Die Rechnung erklärt sich 
folgendermaßen: Jeder Block enthält 256 Byte, von denen die 
ersten beiden Bytes als Zeiger auf den nächsten Block 
gebraucht werden, es bleiben also 254 Bytes zur  Daten- 
speicherung übrig. Aus Datensatznummer und Datensatzlänge 
haben wir die Bytenummer innerhalb der Datei berechnet. Wenn 
wir diesen Wert durch die Anzahl der Bytes pro Block 
dividieren, erhalten wir die Nummer des Blocks, in dem der 
Datensatz steht, während der Rest der Division die Position 
innerhalb des Blocks ergibt (plus 2, da die ersten beiden 
Byte als Zeiger dienen). Geht der Datensatz über das 
Blockende hinaus, so muß auch der nächste Datensatz gelesen 
werden. 


In unserem Beispiel steht der 27. Datenblock in Track 410 = 
16 und Sektor $0C = 12. Wenn wir diesen Block lesen, erhalten 
wir folgendes Bild: 


>:00 OO ΕΞ OO OO OO OO OO OO ........ 
2:08 OO OO OO OO OO OO OO OO ........ 
2:10 00 OO OO OO OO OO OO OO ........ 
25118 00 OO OO OO OO OO OO OO ........ 
2520 QO OO OO OO OO OO OO OO ........ 
2:28 OO OO OO OO 44 41 54 45 ....DATE 
»:30 4E 53 41 54 54 20 37 50 NSATZ 70 
2558 OD OO OO OO OO OO OO OO ........ 
2:40 QO OO OO OO OO OO OO OO ........ 
2:48 OO OO OO OO OO OO OO OO ........ 
2:90 OO OO OO OO OO OO OO OO ....... . 
>:58 OO OO OO OO OO OO OO OO ........ 
»:60 OO OO OO OO OO OO OO OO ........ 
2:68 OO OO OO OO OO OO OO OO ...... .. 
2:70 OO OO OO OO OO OO OO OO ........ 
2:78 OO OO OO OO OO OO OO OO ........ 
»:80 OO OO OO OO OO OO OO OO ........ 
>:88 OO OO OO OO OO OO OO OO ........ 
»:90 FF OO OO OO OO OO OO OO ........ 
2:98 OO OO OO OO OO OO OO OO ........ 
»:40 OO OO OO OO OO OO OO OO ........ 
2:98 OO OO OO OO OO OO OO OO ........ 
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>:BO 00 OO OO OO OO OO QO OO ........ 
2:88 OO OO OO OO OO OO OO OO ........ 
2:00 OO OO OO OO OO OO OO OO ........ 
23086 OO OO OO OO OO OO OO OO ........ 
»:DO OO OO OO OO OO OO OO OO ........ 


2308 OO OO OO OO OO OO OO OO ........ 
Σ3ΕΟ OO OO OO OO OO OO OO OO ........ 
>:E8 OO OO OO OO OO OO OO OO ...... .. 
>:F0O OO OO OO OO FF OO OO OO ........ 
>:F8 OO OO OO OO OO OO OO OO ...... e e 


Erhalten wir bei der Berechnung eine Blocknummer über 120, so 
befindet sich der Zeiger auf den Datensatz nicht mehr im 
ersten Side-Sektor-Block, sondern in einem der nächsten 
Blöcke. Hier können Sie wieder die Blockzahl durch 120 
dividieren und Sie erhalten die Nummer des Side-Sektor- 
Blocks. Der Rest gibt dann wieder die Nummer des Datenzeigers 
innerhalb dieses Blocks an. Haben wir als Blocknummer z.B. 
425 erhalten, so erhalten wir 3 Rest 65. Wir müssen also 
Side-Sektorblock 3 lesen und dort den Zeiger auf den 65. 
Datenblock holen. Da jeder Side-Sektor-Block die Track- und 
Sektornummern der anderen Side-Sektor-Blocks enthält, ist 
wiederum nur ein weiterer Lesezugriff erforderlich. Für den 
Zugriff auf einen Datensatz einer relativen Datei sind also 
zwischen 2 und 4 Blockgriffe erforderlich. Da die eigent- 
lichen Datensätze einer relativen Datei genau wie bei einer 
sequentiellen Datei mit einander verkettet sind, ist auch ein 
sequentielles Lesen oder Schreiben ohne Angabe einer 
Datensatznummer möglich. Dabei wird nach jedem Schreiben oder 
Lesen der Zeiger auf den jeweils nächsten Datensatz gesetzt. 
Beim Anlegen und Erweitern einer relativen Datei geschieht 
folgendes: 

Zuerst wird ein Directoryeintrag für die relative Datei 
erzeugt, der den Eintrag über die beim öffnen angegebene 
Länge enthält. Gleichzeitig werden zwei Datenkanäle für die 
relative Datei reserviert (einer für die Daten selbst, der 
andere für die Side-Sektor-Blöcke). Wird jetzt der 
Recordzeiger auf einen bestimmten Datensatz gesetzt, wird 
erst geprüft, ob dieser Datensatz schon existiert. Ist dies 
der Fall, werden die entsprechenden Blocks gelesen und die 
Zeiger auf diesen Datensatz gesetzt, der nun gelesen oder 
geschrieben werden kann. Existierte dieser Datensatz noch 
nicht, so wird er angelegt. Dabei werden auch alle evtl. noch 
nicht existierende Datensätze mit kleinerer Datensatznummer 
angelegt. Das erste Byte des neuen Datensatzes enthält  $FF 
(255), der Rest des Datensatzes wird mit #00 aufgefüllt. 
Steht der angesprochene Datensatz an Anfang eines Blocks, 
wird der Rest des Blocks ebenfalls mit leeren Datensätzen 
gefüllt. Jedesmal wenn ein nicht existierender Datensatz 
angesprochen wird, wird die Fehlermeldung "DO, record not 
present’ ausgegeben. Beim Schreiben eines neuen Datensatzes 
ist dies kein eigentlicher Fehler, sondern weist nur darauf 
hin, daß ein neuer Datensatz erzeugt wird. Diese Methode 
sollte man auch beim Anlegen einer neuen Datei benutzen, wenn 
man die maximale Zahl von Datensätzen kennt. Man setzt 
einfach den Recordzeiger auf diesen Datensatz und schreibt 
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$FF  (CHR$(255)) in diesen Datensatz. Damit werden alle 
Datensätze bis zu dieser Nummer angelegt und die Fehler- 
meldung SO tritt nicht mehr auf. Gleichzeitig weiß man auch, 
ob noch genügend Platz auf der Diskette ist. Ist dies nicht 
der Fall, erhält man die Fehlermeldung ‘52, file too large’. 


Bei diesem Verfahren mit é Side-Sektoren kann eine relative 
Datei maximal 6 * 120 * 254 = 182 880 Bytes enthalten. Im 
Falle der VC 1541 ist dies mehr als die Kapazität der ganzen 
Diskette. Bei der größeren Floppy 8050, die pro Laufwerk mehr 
als 500 K abspeichern kann, bedeutet dies eine Einschränkung. 
Deshalb hat man ab der DOS-Version 2.7 eine Erweiterung des 
Side-Sektor-Verfahrens vorgenommen ('Super-Side-Sektor'), bei 
dem eine relative Datei maximal 23 MB an Daten enthalten 
kann. Dies ist bei der CBM 8250 und den Commodore-Festplatten 
sowie bei den neueren 8050-Floppies der Fall (siehe dazu auch 
Kapitel 5.2). 


Da wie gesagt eine relative Datei zwei Datenkanäle erfordert, 
die VC 1541 jedoch nur drei Kanäle zur freien Verfügung hat, 
kann immer nur eine relative Datei Datei offen sein. Der 
dritte Kanal könnte noch für eine gleichzeitig offene 
sequentielle Datei genutzt werden. Bei den großen CBM 
Floppies stehen Ihnen ebenfalls mehr Kanäle zur Verfügung 
(gleichzeitig 3 offene relative Dateien, siehe auch Kapitel 
5.2). 
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VC 1541 


1111111111 1111111111 111111: 


C100 78 SEI 

C101 A9 F7 LDA #$F7 
C103 2D 00 IC AND $1C00 
C106 48 PHA 

C107 AS 7F LDA $7F 
C109 FO 05 BEQ $C110 
C10B 68 PLA 

C10C 09 00 ORA #$00 
C10E DO 03 BNE $C113 
C110 68 PLA 

C111 09 08 ORA #$08 
C113 BD 00 1C STA $1C00 
Cité 38 CLI 

C117 60 RTS 

EE ZAK EE EE EE EE EE 11111111: 
C118 78 SEI 

C119 A9 08 LDA 8808 
C11B DD 00 1C ORA $1C00 
C11E 8D 00 iC STA $1C00 
C121 58 CLI 

C122 60 RTS 
KXEXXXEXEEXXEXXEXEZXRXEKETXXTEEEEKEK 
C123 A9 00 LDA #$00 
C125 8D AL 02 STA $026C 
C128 8D 6D 02 STA $026D 
C12B 60 RTS 
FREE 
C12C 78 SEI 

C12D BA TXA 

C12E 48 PHA 

C12F A9 50 LDA #$50 
Cist 8D C 02 STA $026C 
C134 A2 00 LDX #$00 
C136 BD CA FE LDA $FECA,X 
C139 8D 6D 02 STA $026D 
Cisc OD 00 1C DORA $1C00 
C13F 8D 00 IC STA $1C00 
C142 68 PLA 

C143 AA TAX 

C144 38 CLI 

C145 60 RTS 
RERERHERERAHEREREERAREEEREEERE 
C146 A9 00 LDA $$00 
C148 BD F9 02 STA $02F9 
C14B AD BE 02 LDA $028E 
C14E 85 7F STA $7F 


DOS 2. O 


LED am Laufwerk einschalten 
LED-Bit löschen 

Drivenumaer 

0 ? 


nicht Laufwerk 0, dann LED aus 


LED einschalten 


LED einschalten 


LED ein 


Fehlerflags löschen 


X-Register retten 


LED einschalten 


X-Register zurückholen 


Befehle vom Rechner auswerten 


letzte Drivenunaer 
Drivenuamer 
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C150 20 BC Eé JSR $E6BC 
C153 AS 84 LDA $84 
C155 10 09 BPL $C160 
C137 29 OF AND #$0F 
C159 C9 OF CMP #$0F 
C15B FO 03 BEQ $C160 
C15D AC B4 D7 JMP $D7B4 
C150 20 B3 C2 JSR $C2B3 
C163 Bi AS LDA ($A3),Y 
C165 8D 75 02 STA $0275 
C168 A2 OB LDX #$0B 
C16A BD 89 FE LDA $FE89,X 
MEI CD 75 02 CMP $0275 
C170 FO 08 BEO $C17A 
C172 CA DEX 

C173 10 F5 BPL $C16A 
C173 A9 31 LDA $$51 
C177 ac C8 C1 JMP $C1C8 
C174 BE 2A 02 STX $022A 
C17D EO 09 CPX #$09 
C17F 90 03 BCC $C184 
C181 20 EE C1 JSR $CIEE 
C184 AE 2A 02 LDX $0228 
5187 BD 95 FE LDA $FE95,X 
CiBA 85 bF STA $6F 
C18C BD ΑΙ FE LDA $FEAI,X 
C18F 85 70 STA $70 
C191 AL δΕ 00 JMP ($005F) 
ECKE CEA EE EE EK 
C194 A9 00 LDA #$00 
C196 8D F9 02 STA $02F9 
C199 AD AL 02 LDA $026C 
C19C DO 2A BNE $C1C8 
C19E A0 00 LDY #$00 
Ciao 98 TYA 

CiAl 84 80 STY $80 
C1A3 84 81 STY $81 
6185 84 AS STY $A3 
C187 20 C7 E6 JSR $E6C7 
CiAA 20 23 Ci JSR $C123 
CiAD AS 7F LDA $7F 
CIAF 8D 8E 02 STA $028E 
CiB2 AA TAX 

C1B3 AY 00 LDA #$00 
6185 95 FF STA $FF,X 
C1B7 20 BD C1 JSR $CiBD 
CIBA AL DA D4 JMP $D4DA 
a2 27 2 222 272222 2227 27 2 72 7 222 22 25 
C1BD AO 28 LDY #$28 
CiBF AI 00 LDA #$00 
Cici 99 00 02 STA $0200,Y 
cic4 88 DEY 

Cics 10 FA BPL $C1Ci 
C1C7 60 RTS 


'ok'-Meldung bereitstellen 
Sekundäradresse 


15, Koaaandokanal 

ja 

zum ÜPEN-Befehl 

Zeilenlänge eraitteln und Flags löschen 
erstes Zeichen holen 

und aerken 

11 

Kommandos 

mit erstem Zeichen vergleichen 

gefunden ? 


nicht gefunden 
31, ‘syntax error’ 
Nummer des Befehlsworts 


Befehlsnuaaer < 9 ? 

Test für 'R', 'S' und 'N' 
Befehlsnumaer 
Sprungadresse lo 
Sprungadresse hi 


Sprung auf Befehl 


Fehlermeldung nach Befehlsausführung bereitstellen 


Flag gesetzt ? 
ja, dann Fehlermeldung setzen 


Fehlernummer O 
Tracknusaer 0 
Sektornuaaer O 


"ok Meldung bereitstellen 
Fehlerflags löschen 


Drivenumaer 
als letzte Drivenummer aerken 


Eingabepuffer löschen 
interne Kanäle schließen 


Eingabepuffer löschen 
41 Zeichen löschen 


$200 bis $228 


123 


aaa Fehlermeldung ausgeben (Track + Sektor 0) 
C1C8 Ad 00 LDY 8400 


CICA 984 80 STY $80 Track = 0 

Cicc 84 B1 STY $81 Sektor = 0 

Cice AL 45 Eb JMP $E645 Fehlernumaer ie Akku, Meldung generieren 
| Eingabezeile prüfen 

C1D1 A2 00 LDX #$00 

C1D3 BE 7A 02 STX $027A Zeiger auf Laufwerknumaer 

C1D6 A9 34 LDA #$3A RE 

C1D8 20 ó8 C2 JSR $C268 Test der Zeile bis ':' oder bis zum Ende 
CiDB FO 05 BER $CIE2 kein Doppelpunkt gefunden ? 

CıDD 88 DEY 

CiDE 88 DEY 

C1DF 8C 7A 02 STY $027A zeigt auf Laufwerknuamer (vor Doppelpunkt) 
C1E2 45 68 C3 JMP $C368 Laufwerknummer holen und LED einschalten 
ΣΕΚΕ ΧΧΧ ΕΣΗΕΑ ΧΧΧ ΑΣΕ Eingabezeile prüfen 

C1ES A0 00 LDY #$00 Zeiger in Eingabepuffer 

C1E7 A2 00 LDX 8400 Zähler für Koamas 

C1E9 A9 3A LDA #$3A P M 

CiEB 4C 68 C2 JMP 45268 testet Zeile bis zum Doppelpunkt oder zum Ende 
ΕΕΣ ΣΕ ΣΧΕΣΗΣ ΕΕ  Eingabezeile prüfen 

C1EE 20 ES Ci JSR $C1ES leilentest bis ':' oder Ende 

CIE) DO 05 BNE $C1F8 Doppelpunkt gefunden ? 

C1F3 A9 54 LDA #$34 

LIES 4C C8 C1 JMP $C1C8 34, 'syntax error’ 

C1F8 88 DEY 

C1F9 88 DEY leiger vor den Doppelpunkt setzen 

CiFA 8C 7A 02 STY $027A als Position der Laufwerksnummer 

LIED BA TXA Komaa vor dem Doppelpunkt 

CIFE DO F3 BNE $C1F3 ja, dann ‘syntax error’ 

C200 A9 3D LDA #$3D "e" 

C202 20 68 C2 JSR $C268 Eingabe bis zum "si prüfen 

C205 BA TXA Komma gefunden ? 

C206 FO 02 BEQ $C20A nein 

0208 A9 40 LDA #$40 Bit 6 

C20A 09 21 ORA #$21 und Bit 0 und 5 setzen 

C20C 8D 8B 02 STA $028B Flag für Syntaxprüfung 

C20F EB INX 


C210 BE 7702 STX $0277 
C213 8E 78 02 STX $0278 


C216 AD ΒΑ 02 LDA 40284 Joker gefunden ? 

C219 FO OD BEO $C228 nein 

C21B A9 80 LDA #$80 

C21D OD 8B 02 DRA $028B Bit 7 setzen 

C220 8D 8B 02 STA $028B 

C223 A9 00 LDA #$00 

C225 BD 8A 02 STA $02BA und Jokerflag rücksetzen 
C228 98 TYA ‘=’ gefunden ? 

C229 FO 29 BEQ $C254 nein 

C22B 9D 7A 02 STA $027A,X 

C22E AD 77 02 LDA $0277 Anzahl Kommas vor Gleichheitszeichen 
C231 8D 79 02 STA $0279 

C234 A9 8D LDA #$8D Shift CR 
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5256 20 68 C2 JSR 30268 
C239 E8 INX 

5254 BE 78 02 STX $0278 
C23D ΓΑ DEX 

C23E AD ΒΑ 02 LDA 40284 
C241 FO 02 BER 45245 
C243 A9 08 LDA #$08 
C245 EC 7702 CPX $0277 
C248 FO 02 BEQ $C24C 
C24A 09 04 ORA #$04 
C24C 09 03 GRA #$03 
C24E 4D 8B 02  EOR $028B 
C251 8D 8B 02 STA $028B 
C254 AD 8B 02 LDA $028B 
C257 AE 2A 02 LDX $022A 
C25A 3D AS FE AND $FEAS,X 
C25D DO 01 BNE $C260 
C25F 60 RTS 

C260 8D ος 02 STA $026C 
C203 AX 30 LDA 8550 
C265 4C C8 Ci JMP $C1C8 
HHERREEEREEEREEERE 77 HE EEE 2 7 2 
C268 8D 75 02 STA $0275 
C26B | CC 74 02  CPY $0274 
C26E BO 2E BCS $C29E 
C270 Bi ai LDA ($43) ,Y 
C272 C8 INY 

C273 CD 75 02 CMP $0275 
C276 FO 28 BEQ $C2A0 
C278 C9 2A CMP #$2A 
C27A FO 04 BEQ $C280 
C27C C9 At CMP #$3F 
C27E DO 03 BNE $C283 
C280 EE 8A 02 INC $028A 
(285 C9 2C CMP #$2C 
C285 DO E4 BNE $C26B 
C287 98 ΤΥΑ 

C288 9D 7B 02 STA $027B,X 
C28B AD ΒΑ 02 LDA 40284 
C28E 29 7F AND #$7F 
C290 FO 07 BEQ $0299 
C292 A9 BO LDA #$80 
C294 95 E7 STA $E7,X 
C296 8D ΒΑ 02 STA $028A 
C299 ER INX 

C298 EO 04 CPX #$04 
C29C 90 CD BCC $C26B 
C29E DU 00 LDY #$00 
C2A0 AD 74 02 LDA $0274 
C283 9D 7B 02 STA $027B,X 
C2A6 AD BA 02 LDA $028A 
C2A9 29 7F AND #$7F 
C2AB FO 04 BEQ $C2Bi 
C2AD A9 80 LDA #$80 
C2AF 95 E7 STA $E7,X 


Zeile bis zum Ende prüfen 
Kommazahler erhöhen 
Anzahl Kommas merken 


Joker gefunden ? 

nein 

Bit 3 setzen 

Komma nach dem Gleichheitszeichen ? 
nein 

Bit 2 setzen 

Bit 0 und 1 setzen 


als Flag für Syntax-Prüfung 
Syntaxflag 

Befehlsnummer 

mit Prüfbyte verknüpfen 
fehlerhafte Syntax ? 


Fehlerflag setzen 
30, 'syntax error’ 
Zeichen im Eingabepuffer suchen 
Zeichen merken 
Zeile schon zu Ende ? 
ja 
Zeichen aus Puffer holen 
mit gesuchtes Zeichen vergleichen 
gefunden 
ME IM 
'9* 
Jokerflag setzen 
"b 
Koaaaposition merken 
Jokerflag 
kein Joker 
Flag merken 
und als Jokerflag merken 
Kommazähler erhöhen 
schon 4 Kommas ? 
nein, weitermachen 
Flag für Zeilenende setzen 
Jokerflag 


kein Joker 


Flag setzen 
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C2B1 98 TYA 


C2B2 60 RTS 
BEREITEN 
C2B3 A4 AS LDY $AS 
C2B5 FO 14 BER $C2CB 
C2B7 88 DEY 

C2B8 FO 10 BER $C2CA 
C2BA — B9 00 02 LDA $0200,Y 
C2BD C9? OD CMP #$0D 
C2BF FO OA BEQ $C2CB 
C2C1 88 DEY 

C2C2 B9 00 02 LDA $0200,Y 
C265 C9 OD CMP #$0D 
257 FO 02 BEQ $C2CB 
C2C9 CB INY 

C2CA CB INY 

C2CB BC 74 02 STY $0274 
C2CE CO 2A CPY #$2A 
C2D0 AO FF LDY &$FF 
5202 90 08 BCC $C2DC 
C204 BC 2A 02 STY 40224 
C2D7 AG 32 LDA #$32 


0200 4C CB C1 JMP 46158 


EZE E EE EE EE LE HR 


C2DC AO 00 LDY $$00 
C2DE 98 ΤΥΑ 
C2DF 85 Α5 STA 443 


C2Et 8D 58 02 STA $0258 
C2E4 BD 4A 02 STA $0248 
C2E7 8D 96 02 STA $0296 
C2EA 85 D3 STA $D3 

C2EC | 8D 79 02 STA $0279 
C2EF | 8D 77 02 STA $0277 
C2F2 8D 78 02 STA $0278 
C2F3 | 8D ΒΑ 02 STA $0288 
C2F8 8D éC 02 STA 20260 


C2FB Α2 05 LDX #$05 
C2FD 9D 79 02 STA $0279,X 
C300 95 D7 STA $D7,X 
C302 95 DC STA $DC,X 
C304 95 Ei STA $E1,X 
0506 95 Eó STA $E6,X 


C308 9D 7F 02 STA $027F,X 
C30B 9D 84 02 STA $0284,X 


CIOE CA DEX 
C3OF DO EC BNE $C2FD 
C311 60 RTS 


PASE LE SESE LALI OLE SESE LESSEE SES 


C312 AD 78 02 LDA $0278 
C315 BD 77 02 STA $0277 
C318 A9 Οἱ LDA #801 

C31A 8D 78 02 STA $0278 
C31D 8D 79 02 STA $0279 


leilenlánge prüfen 
Zeiger in Befehlseingabepuffer 
null ? 


eins ? 

Zeichen aus Eingabepuffer 
CR’ 

ja, Zeilenende 


davorstehendes Zeichen 

'CR' 

ja 

Zeiger wieder auf alten Wert 
gleich Zeilenlänge 

mit 42 Zeichen vergleichen 


kleiner, dann ok 


32, ‘syntax error’ Zeile zu lang 


Flags für Befehlseingabe löschen 


Zeiger auf Eingabepuffer Lo 
Recordlänge 
Dateityp 


Komaazähler 


Jokerflag 
Fehlerflag 


Flags für Zeilenanalyse 
Directory-Sektoren 
Pufferzeiger 
Drivenunaern 

Jokerflags 

Tracknunaern 
Sektornumaern 


Drivenuaaer übernehaen 
Anzahl Koanas 
aerken 


Anzahl der Drivenuaeern 
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C320 AC 8E 02 LDY $028E letzte Laufwerknummer 
C323 A2 00 LDX #$00 


0525 86 DS STX $D3 

C327 BD 7A 02 LDA $027A,X Position des Doppelpunkts 

C32A 20 3C C3 JSR $C33C Drivenummer vor Doppelpunkt holen 
C32D Dé DS LDX $D3 


C32F 9D 7A 02 STA $027A,X evtl. exakte Position abspeichern 
c332 98 TYA 


C333 95 E2 STA $E2,X Drivenuaaer in Tabelle 

C335 E8 INX 

C336 EC 78 02 CPX $0278 schon alle Drivenummern geholt ? 
C339 90 EA BCC 45525 nein, weiter machen 

C33B 60 RTS 

ΕΧΑΣΑ ΧΧΧ ΧΧΧ ΕΕΣ | Drivenuamer suchen 

C33C AA TAX Position merken 

C33D AO 00 LDY #$00 

C33F AI 3A LDA #$3A yj 5i 

C341 DD 01 02 CMP $0201, Doppelpunkt dahinter ? 

C344 FO OC BEQ $C352 ja 

C346 DD 00 02 CMP $0200, Doppelpunkt an dieser Stelle ? 
C349 DO 16 BNE $C361 nein 

C34B E8 INX 

C34C 98 TYA 

C34D 29 O1 AND #$01 Drivenuaser 

C34F AB TAY 

C350 8A TXA 

C351 60 RTS 

C392 BD 00 02 LDA $0200,X Drivenuamer holen 

C355 ER INX 

C356 EB INX 

C357 C9 30 CMP 8450 ‘0’ ? 

C359 FO F2 BEQ $C34D ja 

C35B C9 31 CMP #$31 p EE. 

C35D FO EE BEQ $C34D ja 

C3SF DO EB BNE $C34C nein, letzte Drivenummer benutzen 
C361 98 TYA letzte Drivenuamer 

C342 09 80 ORA #$80 Bit 7 setzen, unsichere Drivenummer 
C354 29 81 AND #$81 restliche Bits lóschen 

0566 DO Ε7 BNE $C34F Drivenummer zur Verfügung stellen 
EXERERREXEXAXEAAEARERERERERXERESS Drivenumaer holen 

0568 A? 00 LDA #$00 

CIAA 8D 8B 02 STA $028B Syntaxflag löschen 

C36D AC 7A 02 LDY $027A Position in Befehlszeile 

C370 B1 A3 LDA ($A3),Y Zeichen auf Befehslpuffer holen 
C372 20 BD C3 JSR $C3BD Laufwerknuaaer holen 

0575 10 11 BPL 0588 sichere Numaer 2 

C377 CR INY Zeiger erhöhen 

C378 CC 74 02 CPY $0274 leilenende ? 

C37B BO 06 BCS $C383 ja 

C37D AC 74 02 LDY $0274 

C380 88 DEY 

C381 DO ED BNE $C370 Zeile nach Drivenumaer absuchen 


C383 CE 8B 02 DEC $028B 
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C386 A9 00 LDA 4400 
C388 29 01 AND #$01 
C384 85 7F STA $7F 
C38C 4C 00 Ci JMP $C100 
BEER 1111111111. 
C38F AS 7F LDñ $7F 
C391 49 01 EOR #$01 
C393 29 01 AND #$01 
C395 85 7F STA $7F 
C397 60 RTS 

ΧΑΑ ΧΧΧ ΣΕ ΕΚΕ ΧΧΧ 
0598 Α0 00 LDY #$00 
C39ñ AD 77 02 LDA $0277 
C39D CD 78 02 CMP $0278 
C340 FO 16 BEQ $C3B8 
C3A2 CE 78 02 DEC $0278 
C345 AC 78 02  LDY $0278 
C348 B9 7A 02 LDA $027A,Y 
C3AB AB TAY 

CIAC Bi AS LDA ($A3),Y 
C3AE AO 04 LDY #$04 
C3BO 09 BB FE CMP $FEBB,Y 
C3B3 FO 03 BEQ $C3B8 
C3B5 88 DEY 

C3B6 DO F8 BNE $C3BO 
C3B8 98 ΤΥΑ 

0580 8D 96 02 STA $0296 
C3BC 60 RTS 
K**XXkXXEXXEXEEEEXEEXEXEEXEXEEXEE 
C3BD C9 30 CMP #$30 
C3BF FO 06 BEQ $C3C7 
C3C1 C9 31 CMP 8451 
C3C3 FO 02 BEQ $C3C7 
C3C5 09 80 ORA #$80 
C3C7 29 81 AND $$81 
C3C9 60 RTS 
EXXEREAXIRIERERERREERRERRERERERXER EH ER 
CICA AX 00 LDA 4400 
C3CC BS 4F STA $6F 
C3CE 8D 8D 02 STA $028D 
C3D1 48 PHA 

C3D2 ΑΕ 78 02 LDX $0278 
C3D5 68 PLA 

C3D6 05 OF ORA $6F 
C3D8 48 PHA 

C3D9 A? 01 LDA #$01 
C3DB 85 GE STA $6F 
C3DD CA DEX 

C3DE 30 OF BMI $C3EF 
C3EO B5 E2 LDA $E2,X 
C3E2 10 04 BPL $C3E8 
C3E4 06 OF ASL $6F 


Drivenummer 
LED einschalten 


Drivenummer umschalten 


Drivenumaer 
Bit 0 uadrehen 


Dateityp feststellen 
Gleichheitszeichen gefunden ? 


nein 
leiger holen 


Zeiger auf Zeichen hinter ‘=’ setzen 
leichen aus Puffer 

mit Kennzeichen für Filetyp vergleichen 
Ὁ. "Pr 'U', 'R' 

übereinstiamung ? 


Dateityp (1 bis 4) merken 


Drivenummer prüfen 
'Q' 


!'1* 


keine null oder eins, dann Bit 7 setzen 


Drivenuamern überprüfen 


Anzahl der Drivenunaern 
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[386 06 OF ASL $6F 


C3EB aa LSR A 
C3E9 90 EA BCC $C3D5 
CSEB 06 6F ASL $6F 
C3ED DO Eó BNE $C3D5 
CSEF 68 PLA 

C3FO AA TAX 


C3F1 BD 3F C4 LDA $C43F,X Syntax-Flag holen 
C3F4 48 PHA 


C3FS 29 03 AND #$03 

C3F7 8D 8C 02 STA $028C 

CIFA 68 PLA 

C3FB OA ASL A 

C3FC 10 3E BPL $C43C 

C3FE AS E2 LDA $E2 

C400 29 01 AND #$01 Drivenuaser isolieren 
C402 85 7F STA $7F 

C404 AD 8C 02 LDA $028C 

C407 FO 2B BEQ 45454 

C409 20 3D Có JSR $C63D Drive initialisieren 
C40C FO 12 BEQ $C420 kein Fehler ? 

C40E 20 BF C3 JSR $C38F auf anderes Drive umschalten 
C411 A9 00 LDA #$00 

C413 8D 8C 02 STA $028C 

C416 20 3D Có JSR $C63D Drive initialisieren 
C419 FO 1E BEQ $C439 kein Fehler ? 

C41B A9 74 LDA #$74 

C41D 20 C8 Ci JSR $C1C8 74, ‘drive not ready’ 
C420 20 8F C3 JSR $C38F 

C423 20 3D Cé JSR $C63D Drive initialisieren 
C426 08 PHP 

C427 20 8F C3 JSR $C38F auf anderes Drive umschalten 
C42A 28 PLP 

C42B FO OC BEQ $C439 kein Fehler ? 

C42D A9 00 LDA #$00 

C42F BD 8C 02 STA $028C Anzahl der Dives 

C432 FO 05 BEQ $C439 

C434 20 3D Có JSR 30650 Drive initialisieren 
C437 DO E2 BNE $C41B Fehler ? 

C439 4C 00 C1 JMP $C100 LED einschalten 

C43C 2A ROL A Drivenuaaer vom Carry nach Bit 0 


C43D 4C 00 C4 JMP 465400 
a... Flags für Drive-Prüfung 
C440 0080 41 01 01 οἱ 01 81 

C448 81 81 81 42 42 42 42 


er Datei ia Directory suchen 


C44F 20 CA C3 JSR $C3CA Drive initialisieren 

C452 A9 00 LDA 8400 

C454 8D 92 02 STA $0292 Zeiger 

C457 20 AC C3 JSR $C5AC ersten Directoryblock lesen 
C454 DO 19 BNE $C475 Eintrag vorhanden ? 

C45C CE 8C 02 DEC $028C Drivenumaer klar ? 

C45F 10 01 BPL 30462 nein 
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C451 


C462 
C454 
C447 
C454 
C46D 


C470 


C473. 


C475 
C478 
C47B 
C47D 


CATE 
C481 
C483 
C485 
C488 
C48A 


C48B 
CABE 
C490 


C492 
C494 
C497 
C49A 
C49D 
C49F 
C4A2 
C4A5 
C4A7 
C4AA 
C4AD 
C4AF 
C4B2 
C4B4 


C4B5 
C4BB 
C4BA 
C4BD 
C4C0 
C4C2 
C4C5 
C4C7 


C4C9 
C4CC 
C4CE 
C4D0 
C4D2 
C4D5 


02 
C3 
Ci 
c4 
Có 


C4 
02 


02 


02 


Lé 


02 
C3 
ει 


02 
CS 


02 
02 


02 


Cé 


LA 
02 


02 


02 


02 


RTS 


LDA 
STA 
JSR 
JSR 
JMP 


JSR 
BEG 
JSR 
LDñ 
BEQ 
RTS 


LDA 
BMI 
BPL 
LDA 
BEQ 
RTS 


JSR 
BEQ 
BNE 


LDA 
STA 
JSR 
JSR 
LDA 
STA 
JSR 
BNE 
STA 
LDA 
BNE 
DEC 
BPL 
RTS 


JSR 
BEQ 
JSR 
LDX 
BPL 
LDA 
BEQ 
BNE 


LDA 
BEQ 
LDA 
AND 
CMP 
BNE 


#$01 

$028D 
$C38F 
$C100 
$C 452 


$0517 
$C485 
$C4D8 
$028F 
$C47E 


$0233 
$C470 
55475 
$028F 
$C45C 


$C604 
$C4AA 
$C4BA 


#$01 

$028D 
$C38F 
$C100 
8500 

90292 
55546 
95484 
$028F 
$028F 
$C4D7 
90286 
95492 


95617 
$C4AA 
$C4D8 
$0253 
$C4C9 
$028F 
$C4B5 
$C4D7 


$0296 
$C4D7 
$E7,X 
8407 

$0296 
$C4B5 


Drive wechseln 

LED einschalten 

und suchen 

nachste Datei im Directory suchen 
nicht gefunden ? 

Eintrag ia Directory überprüfen 


weitere Dateien ? 


Datei nicht gefunden ? 
ja 


nächsten Directoryblock suchen 
nicht gefunden ? 


Drive wechseln 
LED einschalten 


Directoryblock lesen 
gefunden ? 


nächster Eintrag ia Directory 
nicht gefunden ? 

Eintrag überprüfen 

Datei gefunden ? 


ja 
nein, dann fertig 


Dateityp 


gleich gesuchter Dateityp ? 
nein 
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C4D7 60 RTS 


C4D8 A2 FF LDX #$FF 

C4DA BE 53 02 STX $0253 Flag für Datei gefunden 
C4DD E8 INX 

C4DE BE BA 02  STX $028A 

C4E1 20 89 C5 JSR $C589 leiger auf Datei setzen 
C4E4 FO 06 BEQ $C4EC 

C4E6 60 RTS 

C4E7 2094 C5 JSR 46594 Zeiger auf nächste Datei 
C4EA DO FA BNE $C4E6 Ende, dann fertig 

C4EC AS 7F LDA $7F Drivenuaaer 

C4EE 55 E2 EOR $E2,X 

CAFO 4n LSR A 

C4F1 90 OB BCC $C4FE 

C4F3 29 40 AND #$40 

C4F5 FO FO BEQ $C4E7 

C4F7 A9 02 LDA #$02 

C4F9 CD 8C 02 CMP $028C Suche auf beiden Drives 
C4FC FO E9 BEQ $C4E7 ja 

CAFE BD 7A 02 LDA $027A,X 

C501 AA TAX 

C502 20 AG Có JSR $CAb Lange des Dateinamens holen 
C505 AO 03 LDY 8403 


C507 4C 1D C5 JMP $C51D 


C304 BD 00 02 LDA $0200,X leichen aus Befehlszeile holen 


C50D Di 94 CMP ($94),Y gleich Zeichen ia Directory ? 
C50F FO 0A BEQ $C51B ja 

C511 C9 3F CMP #$3F πα 

C513 DO D2 BNE $C4E7 nein 

C515 B1 94 LDA ($94),Y 

C517 C9 AO CMP #$A0 Shift Blank, Ende des Namens ? 
C519 FO CC BEQ $C4E7 ja 

C51B E8 INX leiger erhóhen 

C51C c8 INY 

C51D EC 76 02 CPX $0276 Ende des Namens ia Befehl ? 
C520 BO 09 BCS $C52B ja 

0522 BD 00 02 LDA $0200,X nächstes Zeichen 

C529 C9 2A CMP #$2A κ“. 

C527 FO OC BE@ $C535 ja, Datei gefunden 

C529 DO DF BNE $C50A sonst weitersuchen 

C52B CO 13 CPY #$13 19 

0520 BO 04 BCS 46555 Ende des Namens erreicht 

052Ε B1 94 LDA ($94),Y 

C551 C9 AO CMP 84540 Shift Blank, Ende des Namens 
C533 DO B2 BNE $C4E7 nicht gefunden 


C535 AE 79 02 LDX $0279 
C538 BE 53 02 STX $0253 
C53B BS E7 LDA $E7,X 
C53D 29 80 AND #$80 

COSF 8D ΒΑ 02 STA $028A 
C542 AD 94 02 LDA $0294 
C545 95 DD STA $DD,X 
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C547 
C549 
C54B 
C54D 
CS4F 
C530 
C391 
C353 
C533 
C556 
C558 
CSSA 
C55C 
ς55Ε 
C560 
C562 
C564 
C366 
C568 
C368 
C56C 
CS6E 
C570 
C572 
C574 
C577 
C578 
CS7A 
C57D 
C580 
C582 
C584 
C586 
C389 
C5BB 
C58E 
C591 
C594 
C597 
C599 


C59A 
C59D 
ς59Ε 
05Αἱ 
C344 
CAG 
C348 
CSAB 


CSAC 
CSAE 
C5B1 
C5B2 
C5B5 
C5B8 


02 


02 
02 


02 
02 
02 


02 
02 


02 


02 


02 


02 


02 
FE 


LDA 
STA 
LDY 
LDA 
INY 
PHA 
AND 
STA 
PLA 
AND 
BMI 
ORA 
AND 
ORA 
STA 
LDA 
AND 
ORA 
STA 
LDA 
AND 
ORA 
STA 
LDA 
STA 
INY 
LDA 
STA 
LDA 
BNE 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
DEC 
BPL 
RTS 


LDX 
LDA 
BMI 
LDA 
BNE 
LDA 
STA 
RTS 


LDY 
STY 
DEY 
STY 
LDA 
STA 


$81 
$D8,X 
#500 
($94) ,Y 


8$40 
$5F 


#$DF 
$C55C 
4420 
TE 
$5F 

$5F 
#$80 
$E7,X 
$5F 
$E7,X 
$E2,X 
#$80 
$7F 
$E2,X 
($94),Y 
$0280,X 


($94) ,Y 
$0285, X 
$0258 
$C589 
#$15 
($94) ,Y 
$0258 
#$FF 
$028F 
$0278 
$0279 
$0279 
$C59^ 


$0279 
$E7,X 
$C5A6 
$0280, Xx 
$0594 
#$00 
$028F 


#$00 
$0291 


$0253 
$FEBS 
$80 


Sektornummer des Directorys 
in Tabelle eintragen 


Filetyp 

Scratchschutzbit (6) isolieren 
und merken 

Bit 7 löschen 

Bit 5 setzen 

Bit 3 und 4 lóschen 

Bit 6 wiederholen 

Flag für Joker isolieren 


in Tabelle schreiben 


Drivenummer 


erstes Track der Datei 


und Sektor aus Directory holen 
Recordlänge 
schon erfaßt ? 


Recordlänge 
aus Directory holen 


Flag für Joker gesetzt ? 

ja 

Tracknuamer schon gesetzt 7 
ja 


18, Directorytrack 
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CSBA 
CSBC 
CSBE 
c5C1 
0504 
elt? 
CSC9 


CSCA 
CSCC 
CSCF 
501 
0504 
507 
CSDA 
CSDD 
CSDF 
CSE1 
CSES 
CSE6 
CSE8 
CSEB 
CSED 
CSFO 
ς5Ε2 
CSFS 
COF8 
CSFA 


CSFB 
CSFD 
C500 
C502 


C604 
C607 
C609 
τους 
C60E 
C511 
C514 
C517 
C619 
C61C 
Co1F 
C621 
C623 
C626 


C629 
C62C 


C62F 
C631 
C4634 
C537 


02 


02 
DE 


LDA 
STA 
STA 
JSR 
LDA 
BNE 
RTS 


LDA 
STA 
LDA 
JSR 
STA 
JSR 
DEC 
LDY 
LDA 
BNE 
LDA 
BNE 
JSR 
LDA 
STA 
LDA 
LDX 
STA 
BEQ 
RTS 


LDX 
CPX 
BNE 
BEQ 


LDA 
STA 
LDA 
STA 
JSR 
LDA 
JSR 
LDA 
STA 
LDA 
BMI 
LDA 
JSR 
JMP 


JSR 
JMP 


LDA 
STA 
JSR 
LDA 


8501 
$81 
$0293 
$D475 
$0293 
$C5CA 


#807 
$0295 
#500 
$D4Fó 
$0293 
$D4E8 
$0295 
#$00 
($94) Y 
$C5FB 
$0291 
$C517 
$DESB 
$81 
$0291 
$94 
$0292 
$0292 
$C517 


#$01 

$0292 
$C62F 
$C617 


$FEBS 
$80 
$0290 
$81 
$D475 
$0294 
$D4C8 
ΕΦΕΕ 
$0253 
$0295 
$Có29 
#$20 
$D1C6 
$C5D7 


$D44D 
$C5C4 


$94 
$0294 
$DESB 
$81 


Sektor 1 


Sektor lesen 


Anzahl der Directoryeinträge (-1) 
Zeichen aus Puffer holen 

als Tracknummer merken 
Pufferzeiger setzen 

Zähler veraindern 


erstes Byte aus Directory 


Track und Sektornuamer holen 


Sektornunaer 


Pufferzeiger 


Pufferzeiger auf eins ? 


18, Tracknumner der BAM 
Tracknuamer 


Sektornumaer 
Block lesen 


Pufferzeiger setzen 
Flag für Datei gefunden löschen 
schon alle Directoryeinträge geprüft ? 


Pufferzeiger um 32 erhöhen, nächster Eintrag 
und weitersuchen 


Pufferzeiger setzen 
nächsten Block lesen 


Track und Sektornunser aus Puffer holen 
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C639 8D 90 02 STA $0290 
ους 60 RTS 
ERERRERRRRERRERRREERERARERERESAAE 
Cé3D AS 68 LDA $68 
C63F DO 28 BNE $C649 
C641 Ab 7F LDX $7F 
C643 55 IC LSR $1C,X 
C645 90 22 BCC 45669 
C647 AI FF LDA #$FF 
C649 8D 98 02 STA $0298 
C6AC 20 OE DO JSR $DOOE 
CAAF AO FF LDY #$FF 
C631 C9 02 CMP $$02 
0653 FO OA BEQ $Cé5F 
C455 C9 05 CMP #$03 
C637 FO 06 BEQ $Cé5F 
C459 C9 OF CMP #$0F 
698 FO 02 BER $C55F 
(650 AO 00 LDY #$00 
CA5F Ab 7F LDX $7F 
C661 98 ΤΥΑ 

C662 95 FF STA $FF,X 
C664 DO 03 BNE $C669 
C666 20 42 DO JSR $D042 
0669 Ab 7F LDX $7F 
C66B — B5 FF LDA $FF,X 
(660 ὁ0 RTS 
τσ... 
C66E 48 PHA 

C56F 20 Ab C6 JSR 3056βό 
C672 20 88 C6 JSR $C688 
C675 68 PLA 

C676 38 SEC 

C677 ED 4B 02 SBC $024B 
C578 AA TAX 

C67B FO OA BER $0587 
Cé7D 90 08 BCC $C687 
C47F A? AO LDA #$A0 
C681 91 94 STA ($94) ,Y 
Co83 CB INY 

C684 CA DEX 

C4685 DO FA BNE $C681 
C687 60 RTS 
SHEEHERESESLASRERRRERER ERE EERE 
C688 98 TYA 

C689 0A ASL A 

CABA AB TAY 

C68B B? 99 00 LDA $0099,Y 
C68E 85 94 STA $94 
C690 B? 9A 00 LDA $009A,Y 
C693 85 95 STA $95 
C695 AO 00 LDY #$00 
C697 BD 00 02 LDA $0200,X 


Sektornuamer merken 


Drive testen und initialisieren 


Drivenuaser 
wurde Diskette gewechselt ? 
nein, dann fertig 


Fehlerflag setzen 
Directorytrack lesen 


20, 'read error’ ? 

ja 

21, 'read error' ? 

ja 

74, 'drive not ready' ? 

ja 

Drivenuaaer 

Fehlerflag serken 

Fehler ? 

BAM laden 

Drivenuaaer 

Fehlerkode übergeben 

Name der Datei in Directorypuffer 
Ende des Namens holen 
Filenamen in Puffer schreiben 


Länge mit maximaler Länge vergleichen 


mit ‘Shift Blank’ auffüllen 


Puffernusaer 


mal 2 als Zeiger 


Pufferzeiger nach $94/$95 


Zeichen in Puffer übertragen 
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CAPA 91 94 STA ($94),Y 
[ουσ CB INY 

C69D FO 06 BEQ $C6AS 
Co9F ΕΒ INX 

C640 EC 76 02 CPX $0276 
C6A3 90 F2 BCC $C6597 
[645 60 RTS 
λα 1111111. 
CoA A9 00 LDA 8500 
Ξ6Α8 BD 4B 02 STA 40248 
CAB 8A TXA 

CAAC 48 PHA 

C6AD BD 00 02 LDA $0200,X 
CABO C9 2C CMP #$2C 
C6B2 FO 14 BEQ $C6CB 
0684 C9 50 CMP #$3D 
C6B6 FO 10 BEQ $C5C8 
COBB ΕΕ 4B 02 INC $024B 
C6BB EB INX 

CABC AI OF LDA #$0F 
C6BE CD 4B 02 CMP $024B 
ος! 90 05 BCC $C6C8 
CoC35 EC 74 02 CPX $0274 
CCA 90 ES BCC $CéAD 
C6C8 BE 76 02 STX $0276 
CACB 68 PLA 

CACC AA TAX 

LACH 60 RTS 
λα 1111 
CCE AS 83 LDA $83 
[600 48 PHA 

CéD1 AS 82 LDA $82 
C4D3 48 PHA 

C604 20 DE C6 JSR $C6DE 
C4D7 68 PLA 

cong 85 82 STA $82 
CADA 68 PLA 

C6DB 85 83 STA $83 
C6DD 60 RTS 
OI EE TEE EE 
CODE AP 11 LDA #$11 
C6EO 85 83 STA $83 
C6E2 20 EB DO JSR $DOEB 
C6E5 20 EB D4 JSR $D4EB 
C6E8 AD 53 02 LDA $0253 
C6EB 10 0A BPL $C5F7 
C6ED AD 8D 02 LDA $028D 
CFO DO OA BNE $CóFC 
CoF2 20 06 C8 JSR 40806 
C6F5 18 CLC 

CoF6 60 RTS 

567; AD 8D 02 LDA $028D 
CFA FO IF BEQ $C71B 


Puffer bereits voll ? 


Ende des Namens ia Befehl suchen 


Vorbesetzung für Länge 


Zeichen aus Puffer holen 
9 


Länge des Namens erhöhen 
15 


größer ? 
Eingabezeile zu Ende ? 


Zeiger auf Ende des Namens 


Sekundäradresse und Kanalnunaer 
Dateieintrag für Directory erzeugen 


Daten zurückholen 


17 

Sekundäradresse 

Kanal zua Lesen öffnen 
Pufferzeiger setzen 


noch nicht letzter Eintrag ? 


D 


‘blocks free.’ schreiben 
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CAFC 
C OFF 
C701 
C704 
C707 
C70A 
C70B 


C70E 
C710 
C713 
C716 
C719 
C71A 


C71B 
AN 
C71F 
C721 
C724 
C726 
C728 
C729 
C72B 
C72E 
C730 
C732 
C734 
C736 
C737 
C739 
C73B 
756 
C73F 
C741 
C742 
C743 
C745 
C747 
C74A 
C74B 
C74D 
C74E 
C751 
C754 
C755 
C758 
C75B 
C75C 
C75F 
C762 
C763 
C764 
C766 
C768 
C76B 


02 


02 


C7 


02 


FE 
02 


FE 
02 


FE 
02 


02 


DEC 
BNE 
DEC 
JSR 
JSR 
SEC 
JMP 


LDA 
STA 
STA 
JSR 
SEC 
RTS 


LDX 
LDY 
LDA 
STA 
BEQ 
LDX 
DEY 
LDA 
STA 
CPX 
BEQ 
CMP 
BCC 
DEX 
CMP 
BCC 
DEX 
JSR 
LDA 
PHA 
ASL 
BPL 
LDA 
STA 
PLA 
AND 
TAY 
LDA 
STA 
DEX 
LDA 
STA 
DEX 
LDA 
STA 
DEX 
DEX 
BCS 
LDA 
STA 
LDA 


$028D 
$C70E 
$028D 
$C38F 
$C806 


$C38F 


#$00 

$0273 
$028D 
$C7B7 


8118 
4110 
($94) ,Y 
$0273 
60728 
4816 


($94),Y 
$0272 
#$16 
$C73C 
8400 
$C73C 


8564 
95750 


$C7AC 
($94) ,Y 


A 
$C74A 
#$3C 
$02B2,X 


#$0F 


$FECS,Y 
$02B1,X 


$FECO,Y 
$02B1,X 


$FEBB,Y 
$02B1,X 


$C76B 
#$2A 
$02B2,X 
8440 


Drive wechseln 
'blocks free.’ schreiben 


Drive wechseln 


Drivenuamer für überschrift, Hi-Byte 


überschrift schreiben 


Anzahl Blocks hi 
in Puffer 
null ? 


Anzahl Blocks lo 
in Puffer 


10 
100 


Puffer löschen 
Filetyp 


Bit 7 ins Carry 

Bit 6 nicht gesetzt ? 
'€' für geschütztes File 
hinter Filetyp schreiben 


Bit 0 bis 3 isolieren 

als Index als Filetypbezeichnungen 
3. Buchstabe des Filetyps 

in Puffer 


2. Buchstabe des Filetyps 
in Puffer 


1. Buchstabe des Filetyps 
in Puffer 


File nicht geschlossen ? 

WË A 

vor Filetyp in Puffer 

mit ‘shift blank’ auffüllen 
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C76D 9D B1 02 STA 
0770 ΓΑ DEX 
C771 AO 12 LDY 
C773 Bi 94 LDA 
0775 9D Bl 02 STA 
C778 CA DEX 
C779 88 DEY 
C77A CO 03 CPY 
0775 X BO FS BCS 
C77E AX 22 LDA 
0780 9D Bl 02 STA 
0785 ΕΒ INX 
C784 EO 20 CPX 
C786 BO OB BCS 
C788 BD Bi 02 LDA 
C78B C9 22 CMP 
C78D FO 04 BEQ 
C78F C9 AO CMP 
C791 DO FO BNE 
C793 49 22 LDA 
C795 9D B1 02 STA 
C798 ΕΒ INX 
C799 EO 20 CPX 
C79B BO OA BCS 
C79D A9 ΤΕ LDA 
C79F 3D B1 02 AND 
C7A2 9D Bi 02 STA 
C7AS 10 Fi BPL 
C707 20 BS C4 JSR 
C7AA 38 SEC 
C7AB 60 RTS 
KUREN 
C7AC AO 1B LDY 
C7AE AX 20 LDA 
C7B0 99 BO 02 STA 
0785 88 DEY 
C7B4 DO FA BNE 
0786 60 RTS 
BERUHEN 
C7B7 20 19 Fi JSR 
C7BA 20 DF FO JSR 
C7BD 20 AC C7 JSR 
C7CO A9 FF LDA 
C7C2 85 éF STA 
C7C4 Ab 7F LDX 
C7C0 BE 7202 STX 
C7C9 DN 00 LDA 
C7CB | 8D 73 02 STA 
C7CE Ab F9 LDX 
C7D0 BD EO FE LDA 
C703 85 95 STA 
C705 AD 88 FE LDA 
C7D8 85 94 STA 
C7DA AO 16 LDY 


$02B1,X 


#$12 
($94) ,Y 
$02B1,X 


#$03 
$C773 
4422 
$02B1,X 


4120 
$C793 
$02B1,X 
«$22 
$C793 
#$A0 
$C783 
#$22 
$02B1,X 


$520 
45747 
#$7F 
$02B1,X 
$02B1,X 
Φ0798 
$C4B5 


#$1B 
#$20 
$02B0,Y 


$C7B0 


$F119 
$FODF 
$C7AC 
#$FF 
$6F 

$7F 
$0272 
8100 
$0273 
$F9 
$FEEO, X 
$95 
$FEBB 
$94 
#$16 


in Puffer 


Filenamen 
in Puffer schreiben 


one 


vor Filenamen schreiben 


Zeichen aus Puffer 
swe 2 


‘Shift Blank’ am Ende des Namens 


ome 


durch ersetzen 


Bit 7 
in den restlichen Zeichen löschen 


nächsten Directoryeintrag suchen 


Puffer für Directory löschen 


' ' Blank 
in Puffer schreiben 


überschrift mit Diskettennaae erzeugen 
bei Bedarf initialisieren 

Diskname lesen 

Puffer löschen 


Drivenunser 
als Blockzahl lo in Puffer 


Blockzahl lo 
Puffernuaner 
Hi-Byte der Pufferadresse 


$90, Position des Diskettennames 
aerken 
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C7DC B1 94 LDA ($94),Y Puffer mit 'Shift blank’ füllen 
C7DE C9 AO CMP #$A0 


C7EO DO OB BNE $C7ED 

C7E2 A9 31 LDA #$31 '1' 

C7E4 20 .BYTE $2C 

C7ES Bi 94 LDA ($94),Y Zeichen aus Puffer 
C7E7 C9 AO CMP #$A0 mit ‘Shift blank’ vergleichen 
C7E9 DO 02 BNE $C7ED 

C7EB A9 20 LDA 8420 * * Blank 

C7ED 99 B3 02 STA $02B3,Y in Puffer 

C7FO 88 DEY 

C7Fi 10 F2 BPL $C7ES 

C7F3 A9 12 LDA #$12 "RVS ON’ 

C7FS 8D B1 02 STA 40281 in Puffer 

C7F8 a9 22 LDA #$22 CS? 

C7FA 8D B2 02 STA $02B2 vor und 

C7FD 8D C3 02 STA $02C3 hinter Diskname schreiben 
C800 a9 20 LDA #$20 ' * Blank 

C802 8D C4 02 STA $02C4 dahinter 

C805 60 RTS 

BEER ER 5 Svhlußzeile erzeugen 
C806 20 AC C7 JSR $C7AC Puffer löschen 

C809 AO 08 LDY #$0B 12 Zeichen 


CBOB B9 17 C8 LDA $C817,Y ‘blocks free,’ 
CBOE 99 B1 02 STA $02B1,Y in Puffer schreiben 


C811 88 DEY 
C812 10 F7 BPL $C80B 
C814 4C 4D EF JMP $EF4D lahl der freien Blücke davor 


PEERESEEEREEEERRESEEE EERE EEE ES 
C817 42 4C AE 43 4B 53 20 46 "blocks f' 


C81F 92 45 45 2E ‘ree.’ 
EEEERRERSERERXEREXERAEXEREEEESS*  S-Befehl ‘Scratch’ 

C823 20 98 C3 JSR $0398 Dateityp eraitteln 

C826 20 20 C3 JSR 46520 Drivenuaser holen 

C829 20 CA C3 JSR $C3CA Drive bei Bedarf initialisieren 
C82C A9 00 LDA #$00 

C82E 85 86 STA $86 Zähler für gelöschte Dateien 
C830 20 9D C4 JSR $C49D Datei ia Directory suchen 

C833 30 3D BMI $C872 nicht gefunden ? 

C835 20 B7 DD JSR $DDB7 ist Datei offen ? 

C838 90 33 BCC $C8éD ja 

C83A AO 00 LDY 8400 

C83C Bi 94 LDA ($94),Y Filetyp 

C83E 29 40 AND #$40 Scratch-Schutz ? 

C840 DO 2B BNE $C85D ja 

C842 20 Bé C8 JSR $C8Bé Datei löschen und in Directory veraerken 
C845 AO 13 LDY 4$13 

C847 B1 94 LDA ($94),Y Tracknuaaer des ersten Side-Sektors 
C849 FO OA BEQ $C855 keiner vorhanden ? 

C84B 85 80 STA $80 Tracknuamer serken 

5845 CR INY 

CB4E B1 94 LDA ($94),Y und Sektornusaaer 

C850 85 81 STA $81 
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C852 20 7D C8 JSR $C87D Side-Sektoren lóschen 


C855 AE 53 02 LDX $0253 Dateinuaaer 

C858 A9 20 LDA 8520 

CB5A 35 E7 AND $E7,X Bit 5 gesetzt ? 

855 DO OD BNE $C84B ja, Datei nicht geschlossen 
C85E BD 80 02 LDA $0280,X Track 

C851 85 80 STA $80 

C863 BD 85 02 LDA $0285,X und Sektor holen 

C856 85 81 STA $81 

C858 20 7D C8 JSR $C87D Datei lóschen 

C86B Eé 84 INC $86 Anzahl der gelöschten Dateien erhöhen 
C86D 20 BB C4 JSR $C48B nàchste Datei suchen 

C870 10 C3 BPL $C835 falls vorhanden löschen 
C872 AS 86 LDA $86 Anzahl der gelóschten Files 
C874 85 80 STA $80 als 'Track' speichern 

C876 A9 01 LDA #$01 1 als Disk-Status 

C878 AO 00 LDY #$00 0 als 'Sektor' 

C87A 4C A3 Ci JMP $C1A3 Meldung 'files scratched' bereit stellen 
EHER Datei Löschen 

C87D 20 SF EF JSR $EFSF Block in BAM freigeben 

C880 20 75 D4 JSR $D475 

C883 20 19 Fi JSR $F119 Puffernummer der BAM holen 
C886 BS A7 LDA $47,X 

C888 C9 FF CMP 4$FF 

C884 FO 08 BEQ $C894 

C88C AD F9 02 LDA $02F9 

C88F 09 40 ORA #$40 

C891 8D F9 02 STA $02F9 

C894 A9 00 LDA $$00 

(806 20 C8 D4 JSR 0458 Pufferzeiger auf Null 

C899 20 56 Di JSR $D156 Track holen 

C89C 85 80 STA $80 

CB9E 20 56 Di JSR $D156 Sektor holen 

CBA1 85 81 STA $81 

C8A3 AS 80 LDA $80 Tracknuamer 

C845 DO 06 BNE $CBAD ungleich Null ? 

C847 20 F4 EE JSR $EEr& BAM schreiben 

CBAA 4C 27 D2 JMP $D227 Kanal schließen 

C8AD 20 SF EF JSR $EFSF Block in BAM freigeben 

C8BO 20 4D 04 JSR $D44D náchsten Block lesen 

C8B3 4C 94 CR JMP $C894 und weiter machen 


Bee Directoryeintrag löschen 
C&B AO 00 LDY #$00 


C8B8 98 ΤΥΑ 

C8B9 9194 STA (454) ,Y Filetyp auf Null setzen 
C8BB 20 SE DE JSR $DESE Block schreiben 

C8BE AU 99 D5 JMP $D599 und prüfen 

ΒΚ ΕΕΣ ΕΕΚ ΣΕ ΕΣ ΕΕΣ 11131 PD-Befehl, "Backup" 
58651 A9 51 LDA 84931 

C8C3 4C C8 Ci JMP $C1C8 31, 'syntax error’ 


BEREGXERXRRRREEXERXEXEXEEEXXSEESEXSEX4X Diskette foraatieren 
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CBCA AI At LDA $$4C JMP-Befehl 
C8C8 BD 00 06 STA $0600 


C8CB A9 C7 LDA #$C7 

cecD 8D 01 Οὐ STA $0601 JMP $FAC7 nach $600 bis $602 
C8DO A9 FA LDA #$FA 

C8D2 8D 02 06 STA $0602 

C8D5 A9 03 LDA 844053 

C8D7 20 D3 Dé JSR $D6D3 Track und Sektornuaaer setzen 
C8DA AS 7F LDA $7F Drivenuaner 

C8DC 09 EO ORA $$E0 Befehlskode für Foraatieren 
C8DE 85 03 STA $03 übergeben 

C8EO AS 03 LDA $03 

C8E2 30 FC BMI $CBEO warten auf Ende der Formatierung 
C8E4 C9 02 CMP #$02 Rückmeldung prüfen 

θεό 90 07 BCC $CBEF kleiner 2, dann ok 

C8E8 A9 03 LDA $$03 

C8EA A2 00 LDX #$00 

C8EC 45 OA EA JMP $E60A 21, ‘read error’ 

CBEF 60 RTS 

BE C-Befehl, ‘Copy’ 

C8FO A9 EO LDA 84Ε0 


C8F2 BD 4F 02 STA $024F 
C8F5 20 Di FO JSR $FODi 


C8F8 20 19 F1 JSR $F119 Puffernummer der BAM holen 
C8FB A9 FF LDA #$FF 

C8FD 95 47 STA $47,X 

CBFF A9 OF LDA #$0F 

C901 8D 56 02 STA $0256 

C904 20 ES Cl JSR $C1ES Eingabezeile prüfen 
C907 DO 03 BNE $C90C 

C909 4C Ci C8 JMP $C8Ci 31, 'syntax error’ 
C90C 20 F8 C1 JSR $C1F8 Eingabezeile prüfen 
C90F 20 20 C3 JSR 455520 Drivenuamern testen 
C912 AD 8B 02 LDA $028B Flag für Syntaxprüfung 
C915 29 55 AND #$55 

C917 DO OF BNE $C928 


C919 AE ΤΑ 02 LDX $027A 
C91C BD 00 02 LDA $0200,X Zeichen des Befehls 


C91F C9 2A CMP #$2A d 

C921 DO 05 BNE $C928 

C923 49 30 LDA #$30 

C925 AL C8 C1 JMP $C1C8 30, ‘syntax error’ 
C928 AD 8B 02 LDA $028B Syntaxflag 

C92B 29 D9 AND #$D9 

C92D DO F4 BNE 0925 30, syntax error’ 
C92F AC 52 C9 JMP $C952 

C932 A9 00 LDA 4400 

C934 8D 58 02 STA $0258 

C937 8D 8C 02 STA $028C Anzahl der Laufwerke 
CISA 8D 80 02 STA $0280 Tracknumaer im Directory 
C93D 8D Bi 02 STA $0281 

C940 op E3 LDA $E3 
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C942 29 01 AND #$01 

C944 85 7F STA $7F Drivenusaer 
C944 09 01 ORA #$01 

C948 8D 91 02 STA $0291 

C94B AD 7B 02 LDA $027B 

C94E 8D 7A 02 STA 40274 


C951 60 RTS 

C952 20 AE C4 JSR $C44F Datei im Directory suchen 

C955 AD 78 02 LDA $0278 Anzahl der Dateinamen ia Befehl 

C958 C9 03 CMP #$03 kleiner als drei ? 

CISA 90 45 BCC $C941 ja 

C95C AS E2 LDA $E2 erste Drivenummer 

C95SE C5 EI CMP $E3 zweite Drivenummer 

C960 DO SF BNE $C9IA1 nicht auf gleichem Laufwerk ? 

C962 AS DD LDA $DD Directoryblock der ersten Datei 

C964 CS DE CMP $DE gleich Directoryblock der zweiten Datei ? 
C966 DO 39 BNE $C9Ai nein 

C968 AS DB LDA $D8 Directorysektor der ersten Datei 

C954 05 D9 CMP $D9 gleich Directorysektor der zweiten Datei ? 
C96C DO 33 BNE 45941 nein 

C96E 20 CC CA JSR $CACC ist Datei vorhanden ? 

C971 A? 01 LDA #$01 


C973 8D 79 02 STA $0279 
5976 20 FA C9 JSR $C9FA 


C979 20 25 Di JSR $D125 Dateityp holen 

C97C FO 04 BEQ $C982 Rel-Datei ? 

C97E C9 02 CMP #$02 Prg-Datei 

C980 DO 05 BNE $C987 nein 

C982 A9 64 LDA #$64 

C984 20 C8 C1 JSR $C1C8 64, 'file type mismatch' 
C987 A9 12 LDA #$12 18 

C989 85 83 STA $83 Sekundäradresse 


C98B AD 3C 02 LDA $023C 
C98E 8D 3D 02 STA $023D 


C991 A9 FF LDA #$FF 

C993 8D 3C 02 STA 402350 

C996 20 2A DA JSR $DA2A Append vorbereiten 

C999 A2 02 LDX #$02 

5098 20 B9 C9 JSR $C9B9 Dateien kopieren 

C99E 4C 94 C1 JMP $C194 fertig 

CIAL 20 A7 C9 JSR $C9A7 Dateien kopieren 

C244 AL 94 Ci JMP $C194 fertig 

C947 20 E7 CA JSR $CAE7 

CIAA AS E2 LDA $E2 Drivenumaer des ersten Files 
C9AC 29 01 AND #$01 

WEI 85 7F STA $7F Drivenumaer 

0980 20 86 D4 JSR $D486 Block anlegen 

C9B3 20 EA Dé JSR $D6E4 Datei in Directory eintragen 


0786 AE 77 02  LDX $0277 
C9B9? 8E 79 02  STX $0279 
C9 BC 20 FA C9 JSR $C9FA 


C9BF DR 11 LDA #$11 17 
C9C1 85 83 STA $83 
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C9C3 
COCA 
C9C9 
C9CB 
C9CE 
προ 
C9D2 


(905 
(508 
C9DB 
C9DD 
CIEO 
C9E2 
C9ES 
C9E7 
C9EA^ 
C9?ED 
C9EE 
C9F1 
C9F3 
C9FS 
C9F7 


COFA 
C9FD 
C9FF 
Lon) 
CA0S 
CA06 
CA08 
CAOA 
CAOC 
CAOF 
CA12 
CA14 
CA17 
CALA 
CAIC 
CAIE 
CA21 
C423 
CA26 
CA29 
CA2B 
CA2E 
CA30 
CA31 
CA32 


CASS 
CA37 
4359 
CAIC 
CASE 
CA40 


DB 


02 


FE 


D4 
02 


D4 


02 


02 


02 
D9 


Di 


D4 


D3 


JSR 
JSR 
BNE 
JSR 
LDA 
5TA 
JMP 


JSR 
JSR 
LDA 
JSR 
BEQ 
JSR 
BER 
JSR 
LDX 
INX 
CPX 
BCC 
LDA 
STA 
JMP 


LDX 
LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDX 
LDA 
JSR 
LDX 
LDA 
AND 
STA 
LDA 
STA 
JSR 
LDY 
JSR 
BEQ 
INY 
TYA 
JMP 


LDA 
STA 
JSR 
STA 
LDX 
LDA 


$DOEB 
$D125 
$C9CE 
$C453 
408 
$F8 
$C9D8 


$CF9B 
$CASS 
#$80 

90546 
$C9D5 
$D125 
$C9EA 
$CF9B 
$0279 


$0278 
$C9B9 
#$12 
$83 
490802 


$0279 
$E2,X 
8501 
$7F 
$FEBS 
$80 
$D8,X 
$81 
$D475 
$0279 
$DD,X 
$D4C8 
$0279 
$E7,X 
8107 
$0240 
#$00 
$0258 
$D9A0 
#$01 
40125 
$CA31 


$D4C8 


#$11 
$83 
$D39B 
$85 
$82 
$F2,X 


Dateityp holen 
keine Rel-Datei ? 


Byte in Puffer schreiben 
und Byte holen 


Bit 7 testen 
nicht gesetzt ? 
Dateityp prüfen 


Rel-Datei ? 
Datenbyte in Puffer holen 


18 


Kanal schlieBen 


Drivenunaer 

aerken 

18, Directorytrack 
aerken 
Directorysektor 
Block lesen 


Zeiger in Block 
Pufferzeiger setzen 


Dateityp 

isolieren 

und aerken 

Parameter fiir Rel-Datei holen 
Dateityp holen 

Rel-Datei ? 

Pufferzeiger setzen 

17 

Kanal öffnen und Byte holen 


Kanalnuaaer 
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CA&2 29 08 AND #$08 
CA44 85 FB STA $F8 
CA46 DO OA BNE $CAS2 
CA48 20 25 Di JSR $D125 
CA4B FO 05 BEQ $CAS2 
CA4D AI 80 LDA #$80 
CAAF 20 97 DD JSR $DD97 
(452 60 RTS 

(455 20 D3 Di JSR $D1D3 
CAS6 20 CB Ei JSR $E1CB 
CA59 AS Dé LDA $Dé 
CASB 48 PHA 

CASC AS DS LDA $D5 
CASE 48 PHA 

CASF AF 12 LDA #$12 
CA61 85 83 STA $83 
CA63 20 07 Di JSR $D107 
CA6&6& 20 DS Di JSR $D1D3 
CA69 20 CB Ei JSR $E1CB 
CAAC 20 IC E2 JSR $E29C 
CAAF AS Dé LDA $D6 
CA71 85 87 STA $87 
CA73 AS DS LDA $D5 
0Α75 85 Bé STA $86 
C477 A9 00 LDA #$00 
CA79 85 88 STA $88 
CA7B 85 D4 STA $D4 
CA7D 85 D7 STA $D7 
CA7F 68 PLA 

cago 85 D5 STA $D5 
CAB2 68 PLA 

CA83 85 Dó STA $Dó 
CAB5 4C SB E3 JMP $E33B 
LAZ SE 22 227 72 77 27 77 7 77 7 27 77 22 2 
CABB 20 20 C3 JSR $C320 
CABB AS ES LDA $E; 
CA8D 29 01 AND #$01 
CABF 85 E3 STA $E3 
CA91 c5 ΕΖ CMP $E2 
CA?3 FO 02 BEQ $CA97 
CA9S 09 80 ORA #$80 
CA97 85 E2 STA $E2 
CA99 20 AE C4 JSR $C44F 
CA9C 20 E7 CA JSR $CAE7 
CA9F AS Ε5 LDA 4Ε5 
CAAI 29 01 AND #$01 
CAAS 85 7F STA $7F 
CAAS AS D9 LDA $D9 
CAA7 85 81 STA $81 
CAAI 20 57 DE JSR $DES7 
CAAC 20 99 D5 JSR $D599 
CAAF AS DE LDA $DE 
CAB1 18 CLC 

CAB2 69 03 ADC 8405 


Endekennzeichen isolieren 
nicht gesetzt ? 

Dateityp holen 

Rel-Datei ? 


Bit 7 setzen 


Drivenummer setzen 
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Schreibkanal öffnen 
Drivenuamer setzen 


R-Befehl, 'Renaee ' 
Drivenummer aus Befehlszeile holen 


2. Laufwerknunaer 
mit erster Laufwerknuamer vergleichen 
gleich ? 


Datei is Directory suchen 
existieren die Namen ? 
Drivenunaner 

Sektornuaaer 

liest Block aus Directory 
ok ? 


leiger auf Directoryeintrag 


plus 3 gleich Zeiger auf Dateinamen 
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CAB4 20 CB D4 JSR $D4CB 
CAB7 20 93 DF JSR $DF93 
CABA AB TAY 

CABB AE 7A 02 LDX $027A 
CABE DH 10 LDA #$10 
CACO 20 bE C& JSR $C56E 
CAC3 20 SE ΡΕ JSR $DESE 
CACA 20 99 D5 JSR $D599 
CAC9 4C 94 C1 JMP $C194 
EXTEREREEEXEXEEREEXKEXEXEEIEEEXEEXE 
CACC AS ER LDA $EB 
CALCE 29 07 AND #$07 
CADO 8D 4A 02 STA $0244 
CADS ΑΕ 78 02 LDX $0278 
CADA CA DEX 

CAD? EC 77 02 CPX $0277 
CADA 90 OA BCC $CAE4 
CADC BD 80 02 LDA $0280,X 
CADF DO F3 BNE $CAD& 
CAE1 A9 62 LDA #$62 
CAES 4C C8 Ci JMP $C1C8 
CAEG6 40 RTS 

CAE7 20 CC CA JSR $CACC 
CAEA BD 80 02 LDA $0280,X 
CAED FO 05 BEQ $CAF4 
CAEF A9 63 LDA #$63 
(ΑΕΙ ac C8 C1 JMP $C1C8 
CAF4 CA DEX 

CAFS 10 F3 BPL $CAEA 
CAF7 60 RTS 
*YX€kEREXXEXTEXXEEXETXXEEEXXEXEERERE 
CAF8 AD 01 02 LDA $0201 
CAFB C9 2D CMP #$2D 
CAFD DO 4C BNE $CB4B 
CAFF AD 03 02 LDA $0203 
CB02 85 éF STA $6F 
CB04 AD 04 02 LDA $0204 
CB07 85 70 STA $70 
CB09 Α0 00 LDY #$00 
CBOB AD 02 02 LDA $0202 
CBOE C9 52 CMP #$52 
CB10 FO OE BER $CB20 
CB12 20 58 F2 JSR $F258 
CBi5 C9 57 CMP 84557 
CB17 FO 37 BEQ $CB50 
CB19 C9 45 CMP #$45 
CBiB DO 2E BNE $CB4B 
CBiD 6C &F 00 JMP ($006F) 
ΕΕΣ ΡΕ ΣΣ Η ΣΕ ΣΕΚΕ ΣΕ «ΕΡΕ EEES 
CB20 Bi Gr LDA ($6F),Y 
CB22 85 85 STA $85 
CB24 AD 74 02 LDA $0274 


Pufferzeiger setzen 
Nummer des Puffers holen 


16 Zeichen 

Namen in Puffer schreiben 

Block auf Diskette schreiben 

ok ? 

fertig, Diskstatus bereitstellen 


prüft ob Datei vorhanden 
Dateityp 


merken 


Tracknumaer 
ungleich null ? 


62, 'file not found’ 


Datei mit alten Namen vorhanden ? 
Tracknummer der neuen Datei 
Datei gelóscht ? 


63, ‘file exists’ 


M-Befehle, ‘Memory’ 
zweites Zeichen aus Puffer 


Adresse nach $6F/$70 


A, Zeichen aus Puffer 
'R' 

zum Memory-Read 

(RTS) 

W 

zum Memory-Write 

'E* 


Meaory-Execute, Routine ausführen 


M-R,  'Meaory-Read' 
Byte lesen 


Länge der Befehlszeile 
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CB27 C9 06 CMP #$06 kleiner 6 ? 


CB29 90 1A BCC $CB45 ja 

CB2B AE 05 02 LDX $0205 Anzahl 

CB2E CA DEX 

CB2F FO 14 BEQ $CB45 nur ein Byte ? 

CB31 BA ΤΧΑ Anzahl der Bytes 

CB32 18 CLC 

CB33 65 bF ADC $6F plus Startadresse 
CB35 Eó éF INC $6F 

CB37 8D 49 02 STA $0249 Endezeiqer 

CB3A AS AE LDA $5F 

CB3C 85 A5 STA 445 Pufferzeiger für Fehlermeldung 
CB3E AS 70 LDA $70 auf Startadresse für M-R setzen 
CB40 85 Ab STA $06 

CB42 4C 43 D4 JMP $D443 Byte ausgeben 

CB45 20 EB DO JSR $DOEB Lesekanal öffnen 

CB48 AC 3A D4 JMP $D43A Bytes ausgeben 

CB4B A9 3i LDA #$31 

CB4D 4C C8 Ci JMP $C1CB 31, ‘syntax error’ 

LE EEEE EZE EEEE EZE EEEE MN, 'Remory-write' 
CBSO B9 06 02 LDA $0206,Y Zeichen lesen 

CB53 91 ot STA ($6F),Y und speichern 

CB55 C8 INY 

NEI CC 05 02 CPY $0205 Anzahl der Zeichen 
(850 90 FS BCC $CB50 schon alle Zeichen ? 
CBSB 60 RTS 

ΕΝΕΚΑ ΧΧΧ ΧΧΧ U-Befehl, ‘User’ 
CBSC AC Οἱ 02 LDY $0201 zweites Zeichen 

CBSF CO 30 CPY #$30 "ο΄ 

CBó1 DO 09 BNE $CBöC nein 

CB43 A9 EA LDA #$EA 

CB65 85 6B STA $6B Zeiger auf Tabelle der User-ñdressen 
5867 AI ΕΕ LDA #$FF $FFEA 

NIK 85 4C STA $6C 

CBAB 60 RTS 

CBéC 20 72 CB JSR $CB72 

CB4F 4C 94 C1 JMP $0194 fertig, Fehleraeldung bereit stellen 
CB72 88 DEY 

CB73 98 TYA 

CB74 29 OF AND #$0F Nummer 

CB76 OA ASL A mal 2 

CB77 AB TAY 

CB78 Bi 6B LDA ($6B),Y als Zeiger in Tabelle 
CB7A 85 75 STA $75 

CB7C 08 INY Adresse nach $75/$76 
CB7D B1 6B LDA ($6B),Y 

CB7F 85 76 STA $76 


CB81 ος 75 00 JMP ($0075) Funktion ausführen 


BEER Direktzugriffskanal öffnen, '#8' 
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CBB4 
CB87 
CB89 
CB8B 
CB8C 
CB8F 
CB90 
CB92 
CB95 
0806 
MK 
CB9A 
CBID 


CBAO 
CBA2 
CBAS 
CBA7 
CBAA 
CBAD 
CBAF 
CBB1 
CBB3 
CBBS 
CBB7 
CBB8 
CBBA 
CBBC 
CBBD 
CBBF 
CBC1 
CBC4 
CBCé 
CBC8 
CBCB 
CBCD 
CBCF 
CBD2 
CBDS 
CBD7 
CBDA 
CBDD 
CBDF 
CBE2 
CBE4 
CBE7 
CBE9 
CBEA 
CBEC 
CBEE 
CBF 1 
CBF3 
CBF6 
CBF8 
CBFB 
CBFD 


02 


Lé 


02 


Di 


CB 


c1 


CC 
02 


02 


02 


02 


02 


02 
02 


Di 


02 


02 


02 


02 


LDA 
STA 
LDA 
PHA 
JSR 
PLA 
STA 
LDX 
DEX 
BNE 
LDA 
JSR 
JMP 


LDA 
JMP 
LDY 
JSR 
LDX 
CPX 
BCS 
LDA 
STA 
STA 
SEC 
ROL 
ROL 
DEX 
BPL 
LDA 
AND 
BNE 
LDA 
AND 
BNE 
LDA 
ORA 
STA 
LDA 
ORA 
STA 
LDA 
JSR 
LDX 
LDA 
STA 
TAX 
LDA 
STA 
STA 
LDX 
LDA 
ORA 
STA 
LDY 
LDA 


$02BE 
$7F 
$83 


$C63D 


$83 
$0274 


$CBAS 
#$01 

$D1E2 
$CBF1 


8$70 
$C1C8 
#$01 
$CC7C 
$0285 
8405 
95840 
8500 
$6F 
$70 


$6F 
$70 


$CBBB 
$5F 
$024F 
$CBA0 
$70 
$0250 
$CBAO 
TTT 
$024F 
$024F 
$70 
$0250 
$0250 
#800 
$DIE2 
$82 
$0285 
$A7,X 


$7F 
$00,X 
$025B,X 
$83 
$022B,X 
#540 
$022B,X 
$82 
sFr 


letzte Drivenuamer 
Drivenuaaer 
Kanalnuaner 


Laufwerk prüfen und evtl. initialisieren 


Länge des Filenanens 
größer eins ? 

Kanal und Puffer belegen 
Flags setzen, fertig 

70, 'no channel’ 
Puffernuaner holen 
Puffernuaaer 


größer gleich 5 ? 
70, no channel’ 


Puffer in Belegungsregister suchen 


Puffer belegt ? 


Puffer belegt ? 


Puffer belegen 


Kanal suchen und belegen 
Kanalnusaer 
Puffernuaaer 


Drivenuaaer 


Sekundäradresse 
READ und WRITE-Flag setzen 


Kanalnunser 
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CBFF 99 44 02 STA $0244,Y 
502 A9 89 LDA 8489 
cc04 99 F2 00 STA $00F2,Y 
CCO7 B9 AT 00 LDA $0047,Y 
CCOA 99 3E 02 STA $023E,Y 
CCOD OA ASL A 

CCOE AA TAX 

CCOF A Οἱ LDA #$01 
CC11 95 99 STA $99,X 
CC13 AD OE LDA #$0E 
(15 99 EC 00 STA $00EC,Y 
CC18 — 4C 94 Ci JMP 45194 
HEREREEREREREREEEEEEEE REE REESE 
CC1B AO 00 LDY #$00 
CC1D A2 00 LDX #$00 
CCIF A9 20 LDA #$2D 
CC21 20 68 C2 JSR $C268 
0024 DO OA BNE $CC30 
CC26 A9 31 LDA 8431 
CC28 4C C8 C1 JMP $C1C8 
CC2B AF Au LDA #$30 
CC2D — 4C C8 Cl JMP $C1C8 
CC30 BA TXA 

CC31 DO F8 BNE $CC2B 
055 Α2 05 LDX #$05 
CC35 BF 00 02 LDA $0200,Y 
(058 DD SD CC CMP $CCSD,X 
CC3B FO 05 BEQ $CC42 
CC3D CA DEX 

CC3E 10 F8 BPL $CC38 
CC40 30 E4 BMI $CC26 
(542 BA ΤΧΑ 

CC43 09 80 ORA $$80 
CC45 8D 2A 02 STA $022A 
CC4B 20 6F CC JSR $CCóoF 
CC4B AD 2A 02 LDA $022A 
CC4E 0A ASL A 

CC4F AA TAX 

CC50 BD 64 CC LDA $CC64,X 
cc353 85 70 STA $70 
CC55 BD 65 CC LDA $CC63,X 
5586 85 éF STA $6F 
CCSA ος δΕ 00 JMP ($006F) 


LLL... 


CCSD 


HEEKEEESESSEEEEEREEREREEFE LESTE 


εσυ» 
CC45 
CC47 
CC69 
CC6B 


41 46 52 57 45 50 


03 CD 
F3 CC 
36 CD 
73 CD 
A3 CD 


Endezeiger 


READ und WRITE-Flag setzen 
Puffernunaer 


nal 2 


Pufferzeiger auf eins 


Flag für Direktzugriff 
fertig 


B-Befehle, 'Block' 


D 


sucht Minuszeichen 
gefunden ? 


31, ‘syntax error’ 
30, ‘syntax error’ 


Komma, dann Fehler 


leichen aus Puffer 
mit 'AFRWEP' vergleichen 
gefunden ? 


mit allen Zeichen vergleichen 
nicht gefunden, Fehler 


Befehlsnummer, Bit 7 setzen 
Parameter holen 

Nummer aal 2 

als Index 

Adresse des Befehls Hi 
Adresse lo 


Sprung auf Befehl 


Nasen der verschiedenen Blockbefehle 
"AFRWEP’ 


Adressen der Blockbefehle 
$CD03, B-A 

$CCFS, B-F 
$CD56, B-R 
$CD73, B-W 
$CDAS, B-E 


147 


CC4D 


REKERXKXRXEXEEXXESXEEXEXEXEXTEREREEKX 


CCöF 
CC71 
CC73 
CC75 
CC78 
CC7A 
CC7C 
CC7F 
CC81 
CC83 
CC85 
CC87 
CC89 
CC8B 
CC8C 
CC8F 
CC91 


CC92 
CC95 
CC98 
CC9B 
CC9D 
CC9F 
CCA1 
CCAS 
CCAS 
CCA7 
CCA9 
CCAB 
CCAE 
CCBO 
CCB2 
CCB4 
CCBA 
CCBB 
CCB9 
CCBB 
CCBD 
CCBF 
CCC1 
CCC2 
CCC4 
CCC5 
CCC7 
CCCA 
CCCD 
CCCE 
CCDO 
CCD1 
CCD3 
CCDS 
CCD7 


BD 


A0 
A2 
Ag 
20 
DO 
AO 
B9 
C9 


CD 


00 
00 
3A 
68 
02 
03 


C2 


02 


02 


02 


02 


02 


LDY 
LDX 
LDA 
JSR 
BNE 
LDY 
LDA 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
INY 
CPY 
BCC 
RTS 


JSR 
INC 
LDY 
CPX 
BCC 
BCS 
LDA 
STA 
STA 
STA 
LDX 
LDA 
CMP 
BCS 
CMP 
BCC 
AND 
PHA 
LDA 
STA 
LDA 
STA 
PLA 
STA 
INY 
CPY 
BCC 
STY 
CLC 
LDA 
INX 
CPX 
BCS 
LDY 
DEY 


#$00 
#$00 
8434 
$C268 
$CC7C 
8403 
$0200,Y 
#$20 
$CC8B 
#$1D 
$CC8B 
#$2C 
$CC92 


$0274 
$CC7C 


$CCA1 
$0277 
$0279 
#504 
45588 
$CC2B 
#500 
$5F 
$70 
$72 
EE 
$0200,Y 
#$40 
$CCCA 
#$30 
$CCCA 
TT 


$70 
$71 
$6F 
$70 


$6F 
$0274 
$CCAB 
$0279 
#$00 
#$03 


$CCE4 
$5F,X 


$CDBD, B-P 


Parameter für Block-Befehle holen 


leile bis Doppelpunkt testen 
gefunden ? 
nein, ab 4. Zeichen beginnen 
Trennzeichen suchen 

' Blank 


Cursor right 


α΄ Komma 


leilenende ? 


nächsten Parameter übernehaen 
Paraseterzähler erhöhen 


mit Maximalzahl vergleichen 
noch nicht überschritten ? 
30, 'syntax error’ 


Speicherbereich für Dezimalziffern löschen 


Zeichen aus Eingabepuffer holen 


keine Ziffer ? 

duh 

keine Ziffer ? 

ASCII-Ziffer nach Hex wandeln 
und serken 


Ziffern eins weiter schieben 


gelesene Zahl merken 

Zeiger in Eingabepuffer erhöhen 
Zeilenende erreicht ? 

nein 

Zeiger serken 


Uarechnung der Hexziffern in ein Byte 
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CCD8 30 Fb BMI $CCDO 
CCDA 7D F2 CC ADC $CCF2,X 
CCDD — 90 F8 BCC $CCD7 
CCDF 18 CLC 

CCEO Ευ 72 INC $72 
CCE2 DO F3 BNE $CCD7 
CCE4 48 PHA 

CCES AE 77 02 LDX $0277 
CCE8 AS 72 LDA $72 
CCEA 9D 80 02 STA $0280,X 
CCED 48 PLA 

CCEE 9D 85 02 STA $0285,X 
CCF1 60 RTS 
RERRRRRERRERERERREREAEERERAERRAA 
CCF2 01 OA 64 

DUTOT ΣΑΣ ET 
LCE 20 F5 CD JSR $CDF5 
CCFB 20 SF EF JSR $EFSF 
CCFB — 4C 94 Cl JMP $C194 
ΙΙ ΠΤΙ; 
CCFE A9 01 LDA 8401 
CDOO 8D F9 02 STA $02F9 
ε1εκεεεεκεκεεκεεκεεκεκεκεεκεεξ 
CD03) 20 F5 CD JSR $CDFS 
CD06 AS 81 LDA $81 
CDOS 48 PHA 

CD09 20 FA ΕΙ JSR $FIFA 
CDOC FO OB BEQ $CD19 
CDOE 48 PLA 

CDOF C5 81 CMP $81 
CD11 DO 19 BNE $CD2C 
CDi3 20 90 EF JSR $EF90 
CDi6 — 4C 94 C1 JMP $C194 
CD19 68 PLA 

CDIA AX 00 LDA #$00 
CDIC 85 81 STA $81 
LDIE E6 80 INC $80 
CD20 AS 80 LDA $80 
CD22 CD D7 FE CMP $FED7 
CD25 BO OA BCS $CD31 
CD27 20 FA Fi JSR $FiFA 
CD2A FO EE BER $CDIA 
cD2C A9 65 LDA #$65 
CD2E 20 45 E6 JSR $E645 
CD31 AI 65 : LDA $$65 
CD33 20 C8 Ci JSR $C1C8 


SRRRERERRRERERERRRERERERERRERR 
056 20 F2 CD JSR $CDF2 
CD39 2 4C 60 D4 JMP $D460 


dezisale Wertigkeit addieren 


Zähler für Parameter 
Hi-Byte 


Lo-Byte 


Deziaalwerte 
1, 10, 100 


B-F Befehl, "Block free’ 

Track, Sektor und Drivenumser holen 
Block freigeben 

fertig, Fehleraeldung bereit stelllen 


B-A Befehl, "Block allocate’ 
Track, Sektor und Drivenuaner holen 
Sektor 

aerken 

sucht Block in BAM 

Block schon belegt ? 
gewünschter Sektor 

gleich nächster freier Sektor ? 
nein 

Block in BAM belegen 

tertig 


Sektor 0 

nächster Track 

Tracknuaaer 

36, letzte Tracknuamer + 1 

größer oder gleich, dann 'no block’ 
freien Block ia nächsten Track suchen 
nicht gefunden, nächsten Track prüfen 
65, Block 


‘no block’ nächster freier 


65, 'no block’ kein Block mehr frei 


Kanal öffnen, Parameter setzen 
Block von Diskette lesen 
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111 1111111111 1111211144. 


CD3C 20 2F Di JSR $D12F 
CDSF Al 99 LDA ($99,X) 
CD41 60 RTS 


XXX XEXXEXXXXEERXEKEKXEXEEXE 


CD42 20 36 CD JSR $CD36 
CD45 AY 00 LDA #$00 
CD47 20 58 D4 JSR $D4C8 
CD4A 20 3C CD JSR $CDSC 
CD4D 99 44 02 STA $0244,Y 
CD50 A9 89 LDA #$89 
CD32 99 F2 00 STA $00F2,Y 
CD55 60 RTS 
LEITETE TEST ET ET EI II SE DEZ ze 
CD56 20 42 CD JSR $CD42 
CD59 20 EC D3 JSR $DSEC 
CDSC 4C 94 Ci JMP $C194 
KERNE EURER EHER 
CDSF 20 6F CC JSR $CC6F 
CD42 20 42 CD JSR $CD42 
CD65 B9 44 02 LDA $0244,Y 
CD48 99 3E 02 STA $023E,Y 
CD&B A9 FF LDA #$FF 
CDAD 99 44 02 STA $0244,Y 
CD70 AC 94 C1 JMP $C194 


EXEXEREXXEXXEXEXEXXEKXXXEEEXEETTE 


CD73 20 F2 CD JSR $CDF2 
CD76 20 EB D4 JSR $DAEB 
CD79 AB TAY 

CD7A 88 DEY 

CD7B C9 02 CMP #$02 
CD7D BO 02 BCS $CD81 
CD7F AO 01 LDY #$01 
CD81 A9 00 LDA #$00 
CD83 20 C8 D4 JSR $DACB 
CD86 98 TYA 

CD87 20 F1 CF JSR $CFF1 
CD8A BA TXA 

CD8B 48 PHA 

cDac 20 64 D4 JSR $D464 
CD8F 68 PLA 

CD90 AA TAX 

CD91 20 EE DÄ JSR $D3EE 
CD94 4C 94 Ci JMP 45194 
RREREAXXEREXEAEXARXREREERAEAREREARIARER 
CD97 20 6F CC JSR $CCéF 
CD9A 20 F2 CD JSR $CDF2 
CD9D 20 64 D4 JSR $D464 
CDAO AL 94 C1 JMP $C194 


LA. 11121.1111 EK EK EEN 


Byte aus Puffer holen 
Zeiger auf Puffer setzen 
Byte holen 


Block von Diskette lesen 
Kanal öffnen, Block lesen 


Pufferzeiger auf Null setzen 
ein Byte aus Puffer holen 


Schreib- und Leseflag setzen 


B-R Befehl, "Block Read’ 
Block von Diskette lesen 

Byte aus Puffer bereitstellen 
Fehlermeldung bereitstellen 


Ul Befehl, Ersatz für 'Block-Read' 
Parameter des Befehls holen 

Block von Diskette lesen 
Endezeiger 

als Datenbyte speichern 


Endezeiger auf $FF 
fertig, Fehlermeldung bereit stellen 


B-W Befehl, 
Kanal öffnen 
Pufferzeiger setzen 


"Block Write’ 


Pufferzeiger lo kleiner 2 
nein 
Pufferzeiger auf null 


Byte in Puffer schreiben 


Block auf Diskette schreiben 


Byte aus Puffer holen 
fertig, Fehleraeldung 


U2, Ersatz für ‘Block write’ 
Parameter des Befehls holen 
Kanal öffnen 

und Block auf Diskette schreiben 
fertig 


'B-E' Befehl, ‘Block execute’ 
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CDAS 20 $8 F2 JSR $F258 
CDAS 20 36 CD JSR $CD36 
CDA9 A9 00 LDA 4400 
CDAB 85 6F STA $4F 
CDAD Ab F9 LDX $F9 
CDAF BD EO FE LDA $FEEO,X 
CDB2 85 70 STA $70 
CDB4 20 BA CD JSR $CDBA 
CDB7 4C 94 Cl JMP $C194 
CDBA GL éF 00 JMP ($006F) 
LASSE SEI ZZ ET EERE ERE EERE EE ES 
CDBD 20 D2 CD JSR $CDD2 
CDCO AS F9 LDA $F9 
CDC2 OA ASL A 

CDC3 AA TAX 

CDC4 AD 86 02 LDA $0286 
CDC7 95 99 STA $99,X 
CDC9 20 2F Di JSR $D12F 
CDCC 20 EE D3 JSR $D3EE 
CDCF 4C 94 Ci JMP $C194 
ΣΣ SSSSKSLLLS) 
CDD2 Ab Di LDX $D3 
CDD4 Eb D3 INC $D3 
CDD6 BD 85 02 LDA $0285,X 
CDD? AB TAY 

CDDA 88 DEY 

CDDB 88 DEY 

CDDC CO OC CPY #$0C 
CODE 90 05 BCC $CDES 
CDEO A9 70 LDA #$70 
CDE2 4C CB CI JMP $C1C8 
CDES 85 83 STA $83 
CDE7 20 EB DO JSR $DOEB 
CDEA BO F4 BCS $CDEO 
CDEC 20 93 DF JSR $DF93 
CDEF 85 F9 STA $F9 

CDF 1 60 RTS 
REHRALEREREREREREREHRESE REE EES 
CDF2 20 D2 CD JSR $CDD2 
CDFS A& DS LDX $D3 
CDF7 BD 85 02 LDA $0285, x 
CDFA 29 01 AND #$01 
CDFC 85 7F STA $7F 
CDFE BD 87 02 LDA $0287,X 
CEO1 85 81 STA $81 
CEOS BD 86 02 LDA $0284, χ 
CE06 85 80 STA $80 
CEO8 20 SF DŠ JSR $DSSF 
CEOB 4C 00 C1 JMP $C100 


PSE SESS LESS EL ELE SEES ELE LAL SSS OE 


CEOE 


20 2C CE 


JSR 


$CE2C 


(RTS) 
Kanal öffnen und Block einlesen 


Adresse low 
Puffernuamer 
Pufferadresse high 


Routine ausführen 
fertig 
Sprung auf Routine 


'B-P' Befehl, ‘Block pointer’ 
Kanal öffnen, Puffernummer holen 
Puffernummer 

* 2 

als Index 

Pointerwert 

als Pufferzeiger abspeichern 

ein Byte aus Puffer 

zur Ausgabe bereitstellen 

fertig 


Kanal öffnen 


Puffernuamer 


Puffernummer kleiner 14 ? 
ja 


70, ‘no channel’ 


Sekundäradresse 

Kanal öffnen 

schon belegt, dann 70, 'no channel’ 
Puffernuaaer 

setzen 


Puffernuamer prüfen und Kanal öffnen 
Kanalnummer 

Pufferadresse 

Drivenumaer 


Sektor 


Track 
Track und Sektor ok ? 
LED einschalten 


Pointer für REL-Datei setzen 
Recordnuamer * Recordlänge 
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LEI) 20 6E CE JSR $CE6E 
CE14 AS 90 LDA $90 
LEIA BS D7 STA $07 
CE18 20 71 CE JSR $CE71 
CEiB Es D7 INC $D7 
LEID Eb Di INC $D7 
CEIF AS BB LDA $8B 
CE21 85 DŠ STA 405 
CE23 AS 90 LDA $90 
CE25 OA ASL A 
CE26 18 CLC 

CE27 69 10 ADC 8410 
CE29 85 Dé STA $Dé 
CE2B 60 RTS 
BEREIT 
CE2C 20 DI CE JSR $CEDI 
CE2F 85 92 STA $92 
CE31 A& 82 LDX $82 
CE33 BS BS LDA $B5,X 
CE35 85 90 STA $90 
CES7 BS BB LDA $BB,X 
CES9 85 91 STA $91 
CESB DO 04 BNE $CE41 
CESD AS 90 LDA $90 
CESF FO OB BEQ $CE4C 
CE4i AS 90 LDA $90 
CE43 38 SEC 

LEAA E? oi SBC #$01 
CE46 85 90 STA $90 
CE48 BO 02 BCS $CE4C 
ΕΔΑ ο 91 DEC $91 
CE4C B5 C7 LDA $C7,X 
CE4E 85 6Ε STA $6F 
CESO 46 6F LSR $5F 
CES2 90 03 BCC $CE57 
CES34 20 ED CE JSR $CEED 
CES37 20 ES CE JSR $CEES 
CESA AS éF LDA $5F 
CESC DO F2 BNE $CESO 
CESE AS D4 LDA $D4 
CE40 18 CLC 

CE61 65 8B ADC CT 
CE63 85 BB STA $8B 
CE65 90 06 BCC $CE6D 
CE67 ES 8C INC $8C 
CE69 DO 02 BNE $CE&D 
CE6B Eó 8D INC $8D 
CEGD 60 RTS 
ΕΕΣ ΣΧΕΣΗ ΕΣ ΕΕΣ 
CEGE AD FE LDA #$FE 
CE70 2C .BYTE $2C 
ΤΩ 
CE71 a9 78 LDA $$78 
CE73 85 6F STA $6F 


durch 254 gleich Datenblocknuaaer 

Rest der Division gleich Zeiger in Datenblock 
Datenzeiger 

durch 120 gleich Side Sektornunaer 
Datenzeiger plus 2 (Track/Sektor-Zeiger') 
Ergebnis der Division 

gleich Side Sektornuaaer 

Rest der Division 

nal 2 


plus 16 
gleich Zeiger in Side-Sektor auf Datenblock 


Arbeitsspeicher lóschen 


Kanalnusaer 
Recordnuaaer lo 


Recordnuamer hi 


Recordnuamer ungleich 0 ? 


dann eins abziehen 


Recordlänge 


Recordnuamer * Recordlänge 


Register linksverschieben 


Ergebnis in $8B/$8C/$8D 


Division durch 234, Datenblocknumaer berechnen 
294 


Divison durch 120, Side Sektornuamer berechnen 
120 
Di visor 
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CE7S A2 03 LDX 
CE77 B5 8F LDA 
CE79 48 PHA 
CE7A BS 84 LDA 
CE7C 95 BF STA 
CE7E 68 PLA 
CE7F 95 8A STA 
CE81 Cñ DEX 
CE82 DO F3 BNE 
CE84 20 D9 CE JSR 
CE87 ΑΖ 00 LDX 
CEB9 BS 90 LDA 
CE8B 95 8F STA 
CE8D EB INX 
CEBE — EO 04 CPX 
CE90 90 F7 BCC 
CE92 AD 00 LDA 
CE94 85 92 STA 
CE96 24 éF BIT 
CE98 30 09 BMI 
CEPA 06 BF ASL 
CE9C 08 PHP 
CE9D 46 BF LSR 
CE9F 28 PLP 
CEAO 20 E6 CE JSR 
CEAS 20 ED CE JGR 
CEA& 20 ES CE JSR 
CEA? 24 GE BIT 
CEAB 30 03 BMI 
CEAD 20 E2 CE JSR 
CEBO AS BF LDA 
CEB2 18 CLC 
CEBS 45 90 ADC 
CEBS 85 90 STA 
CEB7 90 06 BCC 
CEB9 — Eë 91 .INC 
CEBB DO 02 BNE 
CEBD Eó 92 INC 
CEBF AS 92 LDA 
CECI 03 91 ORA 
CEC3 DO C2 BNE 
CECS5 AS 90 LDA 
CEC7 38 SEC 
LECH ES éF SBC 
CECA 90 OC BCC 
CECC Es 8B INC 
CECE DO 06 BNE 
CEDO Eó 8C INC 
CED2 DO 02 BNE 
CED4 E6 8D INC 
CEDA 85 90 STA 
CEDE 40 RTS 
ERERRRRRERRERETERERERERESRESERE 
CED9 A9 00 LDA 
CEDB 85 8B STA 


8505 
$8F,X 


$8A,X 
$8F,X 


$84,X 


$CE77 
$CED9 
8800 
$90,X 
$8F , X 


4504 
$CEB9 
8500 
$92 
$6F 
$CEAS 
$8F 


$8F 


$CEE6 
$CEED 
$CEES 
$6F 

$CEBO 
$CEE2 
$8F 


$90 
$90 
$CEBF 
$91 
$CEBF 
$92 
$92 
$91 
$CE87 
$90 


$F 
$CEDB 
$8B 
$CED6 
986 
$CED6 
$8D 
$90 


#$00 
$8B 


Arbeitsspeicher löschen 


Register 1 linksverschieben 
Register 0 zu Register 1 addieren 
Register 1 linksverschieben 


Register 1 zweimal linksverschieben 


Quotient in $8B/$8C/$8D 


Rest in $90 


Arbeitsspeicher löschen 
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CEDD 85 8C STA 986 
CEDF 85 8D STA $8D 
CEE1 60 RTS 


Bee  J-Byte-Register zweimal linksverschieben 
CEE2 20 ES CE JSR $CEES 


ee  J-Byte-Register einmal linksverschieben 
CEES 18 CLC 


CEE& 26 90 ROL $90 

CEES 26 91 ROL #91 

CEEA 26 92 ROL $92 

CEEC 60 RTS 
EERRRLARHEERHEEEREERERRERREERERE 

CEED 18 CLC 

CEEE A2 FD LDX #$FD 

CEFO BS 8E LDA $8E,X Register $90/$91/$92 
CEF2 75 93 ADC $93,X zu Register $8B/$8C/$8D addieren 
CEF4 95 8E STA $8E,X 

CEF6 E8 INX 

LEE) DO F7 BNE $CEFO 

CEF9 60 RTS 

CEFA A2 00 LDX #$00 

CEFC BA TXA 

CEFD 95 FA STA $FA,X 

CEFF EB INX 

CFOO EO 04 CPX 4$04 

CF02 DO F8 BNE $CEFC 

CFO4 A9 06 LDA #$04 

CF06 95 FA STA $FA,X 

CFOB 60 RTS 

CF09 A0 04 LDY #$04 

CFOB Ab 82 LDX $82 Kanalnummer 
CFOD B? FA 00 LDA $00FA,Y 

CF10 96 FA STX $FA,Y 

CF12 c5 82 CMP $82 Kanalnuaaer 
CF14 FO 07 BEQ $CF1D 

CF16 88 DEY 

CF17 30 Ei BMI $CEFA 

CF19 AA TAX 

CFIA 4C OD CF JMP $CFOD 

CFiD 60 RTS 


CF1E 20 09 CF JSR $CF09 
CF21 20 B7 DF JSR $DFB7 


CF24 DO 46 BNE $CFöC 

CF26 20 DÄ Di JSR $DiD3 Drivenummer setzen 
CF29 20 8bE D2 JSR $D28E 

CF2C 30 48 BMI $CF76 

CF2E 20 C2 DF JSR $DFC2 

CF31 AS 80 LDA $80 Track 

CF33 48 PHA 

CF34 AS 81 LDA $81 Sektor 
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CF36 48 PHA 

CF37 A9 01 LDA 4401 
CF39 20 Fé D4 JSR $D4F6 
CFIC 85 81 STA $81 
CF3E DH 00 LDA #$00 
CF40 20 Fó D4 JSR $D4F6 
CF43 83 80 STA $80 
CF45 FO IF BEQ $CF66 
CF47 20 25 DI JSR $D125 
CF4A FO OB BEG $CF57 
CF4C 20 AB DD JSR $DDAB 
CFAF DO 06 BNE $CF57 
CF51 20 8C CF JSR $CF8C 
CF54 4C SD CF JMP $CFSD 
CF57 20 8C CF JSR $CFBC 
CFSA 20 57 DE JSR $DES7 
CFSD 68 PLA 

CFSE 85 81 STA $81 
CF60 68 PLA 

CF61 85 80 STA $80 
CF63 4C GE CF JMP $CF5F 
CF66 68 PLA 

CF67 85 81 STA $81 
CF49 68 PLA 

CF6ñ 85 80 STA $80 
CF6C 20 8C CF JSR $CF8C 
ΕΕΔΕ 20 93 DF JSR $DF93 
CF72 AA TAX 

CF73 AC 99 DS JMP $D599 
CF76 A9 70 LDA $$70 
CF78 AC C8 C1 JMP $C1C8 
CF7B 20 09 CF JSR $CF09 
CF7E 20 B7 DF JSR $DFB7 
CF81 DO 08 BNE $CF8B 
CF83 20 BE D2 JSR $D28E 
CF86 30 EE BMI $CF76 
CF88 20 C2 DF JSR $DFC2 
CF8B 60 RTS 


X*kXxXXEXXEXEEXXXKEXEXXEXEEETE 


CF8C Aó 82 LDX $82 
ΕΕΒΕ B5 Α7 LDA $A7,X 
CF90 49 80 EOR #$80 
CF92 99 Α7 STA $A7,X 
CF94 B5 ñE LDA $AE,X 
CF96 49 80 EOR #$80 
CF98 95 AE STA $AE,X 
CF9A 60 RTS 

LEST 22 E22 77 7 7 7 7 7 72 7 7 2 7 22 2 
CF9B A2 12 LDX #$12 
CF9D 86 83 STX $83 


Byte 1 aus Puffer holen 
Sektor 


Byte 0 aus Puffer holen 
Track 


Dateityp prüfen 
Rel-Datei ? 


Sektor- 


und Tracknummer zurückholen 


Sektor- 


und Tracknuamer zurückholen 


und prüfen 


70, 'no channel' 


Puffer wechseln 
Kanalnumaer 


Bit 7 in Tabelle uadrehen 


Datenbyte in Puffer schreiben 
Kanal 18 
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CF9F 
CFA2 
CFAS 
CFAB 
CFAA 
CFAC 
CFAF 
CFB1 
CFB3 
CFBS 


CFB7 
CFB9 
CFBB 
CFBD 
CFBF 
CFC2 
CFC4 
CFC4 


CFC9 
CFCB 


CFCE 
CFDO 
CFD3 
CFDS 


CFD8 
CFDA 
CFDC 
CFDF 
CFE1 
CFES 
CFES 
CFE8 
CFEA 
CFEC 


CFED 
CFFO 


CFF1 
CFF2 
CFFS 
CFF7 
LEEFER 
CFFA 
CFFD 
CFFE 
CFFF 
D000 
D002 
D004 


20 07 Di JSR $D107 
20 00 C1  JSR $C100 
20 25 Di JSR $D125 
90 05 BCC $CFAF 
A9 20 LDA #$20 
20 9D DD JSR $DD9D 
A5 83 LDA $83 
C9 OF CMP #$0F 
FO 23 BEQ $CFDB 
DO 08 BNE $CFBF 
AS 94 LDA $84 
29 BF AND #$8F 
C9 OF CMP #$0F 
BO 19 BCS $CFD8 
20 25 Di JSR $D125 
BO 05 BCS $CFC9 
AS 85 LDA $85 
40 9D D1 JMP 45195 
DO 03 BNE $CFCE 
4C AB EO JMP $EOAB 
AS 85 LDA $85 
20 F1 CF JSR $CFF1 
A4 82 LDY $82 
40 EE D3 JMP $D3EE 
A9 04 LDA #$04 
85 82 STA $82 
20 EB D4 JSR $D4EB 
C9 2A CMP 4424 
F0 05 BEQ $CFEB 
a5 85 LDA $85 
20 F1 CF  JSR $CFF1 
AS ER LDA FER 
FO 01 BEQ $CFED 
60 RTS 
EE 55 02 INC $0255 
60 RTS 

La & 2 2 2 2 & ΣΣ £ & 2 £ 2 2 £ 2 Z £ & £ £ & 2 & £ 2 2 2 | 
48 PHA 
20 93 DF JSR $DF93 
10 06 BPL $CFFD 
68 PLA 
A9 δι LDA 8561 
40 CB Ci JMP $C1C8 
OA ASL A 
AA TAX 
68 PLA 
81 99 STA ($99,X) 
Fb 99 INC $99,X 
60 RTS 


Schreibkanal öffnen 
LED einschalten 
Dateityp prüfen 
keine Rel-Datei 


Puffer wechseln 
Sekundäradresse 
15 3 

ja 

nein 


Sekundäradresse 


größer gleich 15 ? 

dann Eingabepuffer 

Dateityp prüfen 

Rel-Datei oder Direktzugriff ? 
Datenbyte 

in Puffer schreiben 


Direktzugriffsdatei ? 
Datenbyte in Rel-Datei schreiben 


Datenbyte in Puffer schreiben 
Kanalnuaser 
nächstes Byte zur Ausgabe bereitstellen 


Kanal 4 

entspricht Eingabepuffer 
Pufferzeiger setzen 

40 

Pufferende ? 


Datenbyte in Puffer schreiben 
Endflag gesetzt ? 
ja 


Kommandoflaq setzen 


Datenbyte in Puffer schreiben 
Datenbyte aerken 

Puffernuaaer holen 

Puffer zugeordnet ? 


61, ‘file not open’ 
Puffernumaer mal 2 
als Index 

Datenbyte 

in Puffer schreiben 
Pufferzeiger erhöhen 
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YE RRETRERSRKEREEETXEXRREREXRERREXEREKÉE 


D005 20 51 Ci JSR $C1Di 
D008 20 42 DO JSR $D042 
DOOB 4C 94 Ci JMP $C194 
BEREIT 
DOOE 20 OF Fi JSR $F10F 
DO11 AB TAY 

D012 Bé A7 LDX $A7,Y 
D014 EO FF CPX #$FF 
DOLA DO 14 BNE $D02C 
D018 48 PHA 

D019 20 8E D2 JSR $D28E 
DO1C AA TAX 

DO1D 10 05 BPL $D024 
DO1F AI 70 LDA #$70 
D021 20 48 E6 JSR $E648 
D024 68 PLA 

D025 AB TAY 

D026 BA TXA 

D027 09 80 ORA #$80 
D029 99 A7 00 STA $00A7,Y 
D02C BA TXA 

D02D 29 OF AND #$0F 
Ρ02Ε 85 F9 STA $F9 
D031 A2 00 LDX $$00 
D033 86 81 STX $81 
D035 AE 85 FE LDX $FEBS 
00586 86 BO STX $80 
DOZA 20 DS Dé JSR 40605 
DO3D AY BO LDA #$B0 
DOSF AL 8C DS JMP $D58C 


XX4RKXEXERERXERXEXTEXEXXXXXXEEEEXY 


D042 20 Di FO JSR $FODI 
D045 20 13 D3 JSR 40515 
D048 20 0E DO JSR $DOOE 
0048 Ab 7F LDX $7F 
DO4D A9 00 LDA $$00 
DO4F 9D 51 02 STA $0251 ,X 
DOS2 8A TXA 

D053 OA ASL A 

D054 AA TAX 

DOSS AS 16 LDA $16 
D057 95 12 STA $12,X 
DOS? AS 17 LDA $17 
DOSB 95 13 STA $13,X 
DOSD 20 86 D5 JSR $D586 
D040 AS F9 LDA $F9 
D0&2 04 ASL A 

DOAJ AA TAX 

D064 A9 02 LDA #$02 
D046 95 99 STA $99,X 
0068 Al 99 LDA ($99,X) 
DOGA AG 7F LDX $7F 
DOéC 9D 01 01 STA $0101,X 


I-Befehl, Initialisieren 
Drivenuaser suchen 

BAM laden 

Diskstatus bereitstellen 


70, 'no channel' 


Sektor 0 

18 

Track 18 

Parameter an Disk-Controller übergeben 
Befehlskode 'Block Header lesen’ 

an Disk-Controller übergeben 

BAM laden 

Block lesen 


Drivenuaner 


Flag für 'BAM geändert’ rücksetzen 


ID speichern 


Puffernuaner 


Pufferzeiger auf $200 


leichen aus Puffer holen 
Drivenumaer 
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DOE A9 00 LDA #$00 
D071 95 1C STA $1C,X 
D073 95 FF STA $FF,X 
EXERXRRARERSERRERRERARRERERRREARRERARE EEE 
D075 20 3A EF JSR $EF3A 
D0768 Α0 04 LDY #$04 
DO7A A9 00 LDA #$00 
DO7C AA TAX 

DO7D 18 CLC 

DO7E 71 óD ADC ($6D),Y 
DOBO 90 01 BCC 0085 
D082 E8 INX 

D083 C8 INY 

D084 C8 INY 

D085 C8 INY 

D084 C8 INY 

D087 CO 48 CPY #$48 
D089 FO F8 BEQ $D083 
DO8B CO 90 CPY #$90 
DO8D DO EE BNE $D07D 
DOBF 48 PHA 

D090 BA ΤΧΑ 

D091 A& 7F LDX $7F 
D093 9D FC 02 STA $02FC,X 
D096 68 PLA 

D097 9D FA 02 STA ΦΟ2ΕΑ.Χ 
ΡΟΦΑ 60 RTS 

LEITET ST ST ZI ST ZI IE ISIS SEI EEE 
DO9B 20 DO D& = JSR $D4D0 
DO9E 20 C3 DO JSR $DOC3 
DOAL 20 99 D5 JSR $D599 
DOA4 20 37 Di JSR $D137 
D0A7 85 80 STA $80 
D0ñ9 20 37 D1 JSR $D137 
DOAC 85 81 STA $81 
DOAE 60 RTS 

DOAF 20 9B DO JSR $DO9B 
DOB2 AS 80 LDA $80 
Ρ084 DO 01 BNE $DOB7 
DOB& 60 RTS 

DOB7 20 1E CF JSR $CF1E 
DOBA 20 DO Dé JSR 45600 
DOBD 20 C3 DO JSR $DOC3 
DOCO 4C 1E CF JMP $CFiE 
λα ST ST IT ET SIE EI ES SE IE 
DOCS A9 80 LDA #$80 
DOCS DO 02 BNE $DOC9 
LESS SI SZ ZI SEI SI ET EI EI EEE III 
DOC? A9 90 LDA #$90 
DOC? 8D 4D 02 STA $024D 
DOLL 20 93 DF JSR $DF93 


Flag für Write Protect 
Flag für Lesefehler 


Blocks free berechnen 
Pufferadresse nach $6D/$6E 
bei Position 4 beginnen 


Anzahl freie Blocks pro Track addieren 
X als Hi-Byte 


plus 4 


Track 18 ? 

dann übergehen 
letzte Tracknuamer ? 
nein 

Lo-Byte 

Hi-Byte 

Drivenummer 

Hi-Byte nach $2FC 
Lo-Byte 

nach $2FA 


Parameter an Disk-Controller 
Block lesen 

ok ? 

Byte aus Puffer holen 

Track 

nächstes Byte aus Puffer 
Sektor 


Track 


Puffer wechseln 

Parameter an Disk-Controller 
Block lesen 

Puffer wechseln 


Block lesen 
Kode für 'Lesen' 


Block schreiben 

Kode für ‘Schreiben’ 
merken 

Puffernumaer holen 
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DOCF AA TAX 

DODO 20 06 D5 JSR 40506 
DODI ΘΑ TXA 

DOD4 48 PHA 

DODS 0A ASL A 
DODA AA TAX 

DOD7 A9 00 LDA #$00 
DOD? 95 99 STA $99,X 
DODB 20 25 Di JSR $D125 
DODE C9 04 CMP #$04 
DOEO BO 06 BCS $DOE8 
DOE2 Fó BS INC $B5,X 
DOE4 DO 02 BNE $DOE8 
DOES F4 BB INC $BB,X 
DOES 68 PLA 

DOEN AA TAX 

DOEA 60 RTS 

LESS NZZ SEI ZI ZEIT IE 2 IR CEES 
DOEB AS 83 LDA $83 
DOED C9 13 CMP #$13 
DOEF 5902 BCC $DOF3 
Ρ0ΕΙ <? OF AND #$0F 
DOF3 Co OF CMP #$0F 
DOFS DO 92 BNE $DOF9 
DOF7 A? 19 LDA #$10 
DOEN AA TAX 

DOFA 38 SEC 

DOFB BD 2B 07 LDA $022B,X 
DOFE 30 06 BMI $D106 
D100 29 OF AND #$0F 
D102 85 82 STA $82 
D104 AA TAX 

D105 18 CL 

D106 60 RTš 
EXERXREEEREXEEXEEEEGEERN E EGOGEERERRER 
D107 AS 83 LDA $83 
D109 C9 13 CMP #$13 
D10B 90 02 BCC $D10F 
D10D 29 OF AND #$0F 
D10F AA TAX 

D110 BD 2B 02 LDA $022B,X 
D113 AB TAY 

D114 OA ASL A 
D115 90 OA BCC $D121 
D117 30 OA BMI $D123 
D119 98 TYA 

D11A 29 OF AND #$0F 
D11C 85 82 STA $82 
D11E AA TAX 

D11F 18 CLC 

D120 60 RTS 

D121 30 Fó BMI $D119 
D123 38 SEC 


Track/Sektor holen, Block lesen/schreiben 


Pufferzeiger mal 2 


leiger in Puffer auf null 
Dateityp holen 

Rel-Datei oder Direktzugriff ? 
ja 


Blockzáhler erhóhen 


Kanal zum Lesen öffnen 
Sekundáradresse 

19 

kleiner ? 


16 


Flag für ok 


Kanal zum Schreiben Öffnen 
Sekundäradresse 

19 

kleiner ? 


Kanalnunamer 


Flag für ok 


Flag für Kanal belegt 
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D124 60 RTS 
BEE 1121111. 
D125 Ab 82 LDX $82 
Di27 B5 EC LDA $EC,X 
D129 4A LSR A 

D12A 29 07 AND #$07 
D12C C9 04 CMP 4404 
D12E 60 RTS 
ολλ 21111111. 
D12F 20 93 DF JSR $DF93 
D132 0A ASL A 

D133 AA TAX 

D134 A4 82 LDY $82 
D136 60 RTS 
EXERARRRERRERRERERERXEEERERERTEREER 
D137 20 2F Di JSR $D12F 
DISA B9 44 02 LDA $0244,Y 
D13D FO 12 BEQ $D151 
D13F A1 99 LDA ($99,X) 
D141 48 PHA 

D142 B5 99 LDA $99,X 
D144 09 AA 02 CMP $0244,Y 
D147 DO 04 BNE $D14D 
D149 A9 FF LDA #$FF 
D14B 95 99 STA $99,X 
D14D 68 PLA 

D14E Fó 99 INC $99,X 
D150 60 RTS 

D151 A1 99 LDA ($99,X) 
D153 FS 99 INC $99,X 
D155 60 RTS 

LEZES ESS EZ SIE 1111111. 
D156 20 37 DI JSR $D137 
D159 DO 36 BNE $D191 
D15B 85 85 STA $85 
D15D B9 4402 LDA $0244,Y 
D160 FO 08 BEQ $D16A 
D162 A9 80 LDA #$80 
D164 99 F2 00 STA $00F2,Y 
D167 AS 85 LDA $85 
D169 60 RTS 

D16A 20 1E CF JSR $CF1E 
D16D A9 00 LDA #$00 
Ρ16Ε 20 C8 D4 JSR 45468 
D172 20 37 Di JSR $D137 
D175 C9 00 CMP #$00 
D177 FO 19 BEQ $D192 
D179 85 80 STA $80 
D17B 20 37 DI JSR $D137 
DI7E 85 81 STA $81 
D180 20 1E CF JSR $CF1E 


Auf Filtyp 'REL' prüfen 


"REL’ 2 


Puffer- und Kanalnuaser holen 
Puffernummer holen 


ein Byte aus Puffer holen 
Puffer- und Kanalnummer holen 
Endezeiger 


Byte aus Puffer holen 


Pufferzeiger 
gleich Endezeiger ? 
nein 


Pufferzeiger auf -1 
Datenbyte 
Pufferzeiger erhöhen 


Zeichen aus Puffer holen 
Pufferzeiger erhöhen 


Byte holen und evtl. nächstes Block lesen 
Byte aus Puffer holen 

nicht das letzte Zeichen ? 

Datenbyte aerken 

Endezeiger 

ja 


READ-Flag 
Datenbyte 


Puffer wechseln und nächsten Block lesen 


Puffezeiger auf null setzen 

erstes Byte aus Puffer holen 

Tracknuamer Null ? 

ja, dann letzter Block 

Tracknuamer aerken 

nächstes Byte holen 

als Folgesektor aerken 

Puffer wechseln und nächsten Block lesen 
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D183 20 D3 δι JSR $D1D3 
υ186 20 DO Dé JSR $DóDO 
D189 20 C3 DO JSR $DOC3 
ϱ185 20 IE CF JSR $CF1E 
Di8F AS 85 LDA $85 

D191 60 RTS 

D192 20 37 Di JSR $D137 
D195 A4 82 LDY $82 

D197 99 44 02 STA $0244,Y 
DIIA ΑΒ 85 LDA $85 

D19C 60 RTS 
BEER 
D19D 20 ΕΙ CF JSR $CFFi 
DIAO FO 01 BEQ $D1A3 
DIA2 60 RTS 

DIAS 20 D3 Di JSR $D1D3 
DIAS 20 1E Fi JSR $F11E 
DIA? AX 00 LDA #$00 
DIAB 20 C8 D4 JSR $DACB 
DIAE AS 80 LDA $80 

Ρ180 20 ΕΙ CF JSR $CFF1 
DiBS AS 81 LDA $81 

DiBS 20 F1 CF JSR $CFFi 
DIBB 20 C7 DO JSR $D0C7 
DIBB 20 1€ CF JSR $CF1E 
DIBE 20 DO D& JSR $D6DO 
Dici DN 02 LDA #$02 
D1C3 AC C8 D4 JMP $D4C8 
YEXEXXXEREETEEXEXXEEEXERETEEEIEIXE 
D1C6 85 bF STA $5F 

D1C8 20 EB D4 JSR $D4E8 
DICB 18 CLC 

D1CC 65 6F ADC $6F 

DICE 95 99 STA $99,X 
D1DO 85 94 STA $94 

D1D2 60 RTS 

LER EIZ ZT SEI ST SIT III III IT 
D1D3 20 93 DF JSR $DF93 
Ρ106 ΑΑ ΤΑΧ 

D1D7 BD 5B 02 LDA $025B,X 
D1DA 29 01 AND #$01 
D1DC 85 7F STA $7F 

DIDE 60 RTS 
SEAEKELHAELERRERER EERE ERE EE RR 
DIDF 38 SEC 

DIEO BO 01 BCS ΦΡΙΕΣ 
EERRRRRRERERERREERERERERREERRRRAE 
D1E2 18 CLC 

DIES 08 PHP 


Drivenuamer aerken 

Paraaeter an Disk-Controller 

Lesebefehl übergeben 

Puffer wechseln und nächsten Block lesen 
Datenbyte zurückholen 

nächstes Byte aus Puffer holen 

als Endezeiger merken 


Datenbyte zurückholen 


Byte in Puffer und Block schreiben 
Byte in Puffer 
Puffer voll ? 


Drivenugger holen 

freien Block in BAM suchen 
Pufferzeiger auf Null 
Tracknuaaer als erstes Byte 
Sektornummer als zweites Byte 
Block schreiben 

Puffer wechseln 

Parameter an Disk-Controller 
Pufferzeiger auf 2 


Pufferzeiger erhöhen 


Pufferzeiger holen 


und erhöhen 


Drivenummer holen 
Puffernumaer holen 


Drivenumaer isolieren 
und aerken 


Schreibkanal und Puffer suchen 
Flag für Schreiben 


Lesekanal und Puffer suchen 
Flag für Lesen 
aerken 
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DIE4 85 ¿éF STA $5F 
DIER 20 27 D2 JSR $D227 
DIEI 20 7F DS JSR $D37F 
DIEC 85 82 STA $82 
DIEE Ab 83 LDX $83 
DIFO 28 PLP 

DIF1 90 02 BCC $D1F5 
DIFS 09 80 ORA #$80 
DIFS 9D 2B 02 STA $022B,X 
Ρ1Ε8 29 SF AND #$3F 
DIFA AB TAY 

DIER AQ ΕΕ LDA #$FF 
DIFD 99 A7 00 STA $0087 ,Y 
D200 99 ñE 00 STA $00AE,Y 
D203 99 CD 00 STA $00CD,Y 
D206 Có AF DEC $5F 
D208 30 1C BMI $D226 
D20A 20 BE D2 JSR $D28E 
D20D 10 08 BPL $D217 
D20F 20 SA D2 JSR $D25A 
D212 DH 70 LDA #$70 
D214 AL CB Ci JMP 30158 
D217 99 47 00 STA $0087 ,Y 
D21A Có OF DEC $6F 
D21C 30 08 BMI 0226 
D21E 20 8E D2 JSR $D28E 
D221 30 EC BMI $D20F 
D223 99 ñE 00 STA $O0OAE,Y 
0226 60 RTS 

ISSR EERE SESS SELLE SIS EE SL ELE ES k 
D227 AS 83 LDA $83 
0229 C9 OF CMP *$0F 
0228 DO 01 BNE $D22E 
D22D 60 RTS 

D22E A& 83 LDX $83 
D230 BD 2B 02 LDA $022B,X 
D233 C9 FF CMP #$FF 
D235 FO 22 BEQ $D259 
D237 29 SF AND #$3F 
D239 85 82 STA $82 
D23B A9 FF LDA #$FF 
D23D 9D 2B 02 STA $022B,X 
D240 A6 82 LDX $82 
D242 A? 00 LDA 8400 
D244 95 F2 STA $F2,X 
D246 20 SA D2 JSR 40254 
D249 Ab 82 LDX $82 
D24B A9 01 LDA #$01 
D24D cA DEX 

D24E 30 03 BMI $D253 
D250 04 ASL A 

D251 DO FA BNE $D24D 
D253 0D 56 02 DORA $0256 
D254 8D 54 02 STA $0256 


Anzahl der Puffer 
Kanal schließen 
freien Kanal belegen 
Kanalnunaer 
Sekundäradresse 


Lesekanal ? 
Flag für Schreiben 
setzen 


Defaultwert 
in Zuordungstabellen schreiben 


Zahl der Puffer erniedrigen 
schon fertig ? 

Puffer suchen 

gefunden ? 

Flags in Tabelle löschen 


70, 'no channel’ 
Puffernuamer in Tabelle 
Pufferanzahl 

schon fertig ? 

Puffer suchen 

nicht gefunden ? 
Puffernummer in Tabelle 


Kanal schlieBen 
Sekundäradresse 

15 ? 

nein 

sonst schon fertig 


Kanalnumaer 

nicht zugeordnet ? 

dann fertig 

Kanalnummer 

luodrnung in Tabelle lóschen 
READ und WRITE-Flag löschen 
Puffer freigeben 

Kanalnummer 


Bit 0 setzen 


auf richtige Position schieben 


und im Belegungsregister freigeben 
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D239 60 RTS 


XXXXXXXXEXXXXEXEEEXXXXEKXEXEEXX Puffer freigeben 


D25A Ab 82 LDX $82 Kanal nummer 

D25C BS A7 LDA $A7,X Puffernuaner 

D25E C9 FF CMP #$FF 

D240 FO 09 BEQ $D26B nicht zugeordnet ? 

D262 48 PHA 

0265 A9 ΕΕ LDA #$FF 

D265 95 A7 STA $47,X Pufferzuordnung löschen 
D267 68 PLA 

D268 20 F3 D2 JSR $D2F3 Puffer im Belegungsregister löschen 
D26B Ab 82 LDX $82 Kanal numaer 

0260 Β5 ΑΕ LDA $AE,X 

D26F C9 FF CMP #$FF in zweiter Tabelle zugeordnet ? 
D271 FO 09 BEQ $D27C nein 

D273 48 PHA 

D274 A9 FF LDA #$FF 

D276 95 AE STA $AE,X Zuordung löschen 

D278 68 PLA 

D279 20 F3 D2 JSR $D2F3 Puffer im Belegungsregister löschen 
D27C A& 82 LDX $82 Kanal nuamer 

D27E BS CD LDA $CD,X 

D280 C9 FF CMP #$FF in dritter Tabelle zugeordnet ? 
D282 FO 09 BEQ $D28D nein 

D284 48 PHA 

D285 AI FF LDA #$FF 

0287 95 CD STA $CD,X Zuordung löschen 

D289 68 PLA 

D28A 20 F3 D2 JSR $D2F3 Puffer ia Belegungsregister löschen 
D28D 60 RTS 

EEXERERREREREXKXKXXXXEZEXXEXESEEEEEEXK Puffer suchen 

D28E 98 TYA 

D28F 48 PHA 

D290 AO 01 LDY #$01 

D292 20 BA D2 JSR $D2BA 

D295 10 OC BPL $D2A3 

0297 88 DEY 

D298 20 Bñ D2 JSR $D2BA 

D29B 10 06 BPL $D2A3 

D29D 20 39 D3 JSR $D339 

D2AO AA TAX 

D2A1 30 13 BMI 40286 

D2A3 BS 00 LDA $00,X 

D2AS 30 FC BMI $D2A3 

D2A7 AS 7F LDA $7F 

D2A9 95 00 STA $00,X 

D2AB 9D SB 02 STA $025B,X 

D2AE BA TXA 

D2AF 0A ASL A 

D2B0 AB TAY 

D2B1 A9 02 LDA #$02 

D2B3 99 99 00 STA $0099,Y 

0286 68 .PLA 

D2B7 AB TAY 
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D2B8 BA TXA 
0285 60 RTS 
D2BA A2 07 LDX 
D2BC BI 4F 02 LDA 
D2BF 3D E9 EF AND 
0252 FO 04 BEQ 
D2C4 CA DEX 
D2C5 10 F5 BPL 
D2C7 60 RTS 
D2C8 B9 AE 02 LDA 
D2CB SDE? EF EOR 
D2CE 99 4F 02 STA 
0201 ΒΑ ΤΧΑ 
0202 88 ΡΕΥ 
D2D3 30 05 ΒΗΙ 
D205 18 CLC 
D2D6 49 08 ADC 
D208 AA TAX 
0209 ὁῦ RTS 
D2DA Ab 82 LDX 
D2DC BS A7 LDA 
D2DE 30 09 BMI 
D2EO 8A TXA 
D2E1 18 CLC 
D2E2 69 07 ADC 
D2E4 AA TAX 
D2E5 BS Α7 LDA 
D2E7 10 FO BPL 
D2E9 C9 FF CMP 
D2EB FO EC BEG 
D2ED 48 PHA 
D2EE AI FF LDA 
D2FO 95 A7 STA 
D2F2 68 PLA 
D2F3 29 OF AND 
D2F5 AB TAY 
D2F& C8 INY 
D2F7 Α2 10 LDX 
D2F9 E 50 02 ROR 
D2FC 6E 4F 02 ROR 
D2FF 88 DEY 
0300 DO 01 BNE 
D302 18 CLC 
D303 CA DEX 
D304 10 F3 BPL 
D306 60 RTS 
EESREREREREREETRERRRERAREREEERRARRRE 
D307 A9 OE LDA 
D3o9 85 83 STA 
0.508 20 27 02 JSR 
D3OE Có 83 DEC 
D310 DO F9 BNE 
D312 60 RTS 


8507 
$024F ,Y 
$EFE9,X 
$D2C8 


$D2BC 


$024F,Y 
$EFE9,X 
ΦΟ24Ε ‚Y 


$D2D8 


#$08 


$82 
$A7,X 
$D2E9 


8507 


$47 ,X 
$D2D9 
#$FF 
$D2D9 


#$FF 
$A7,X 


%$0F 


#$10 
$0250 
$024F 


$D303 


$D2F9 


850Ε 
$83 
$D227 
$83 
$D30B 


Bit lóschen 


Bit uadrehen 


Puffernuaaer 


Puffernusser 


Puffernuaaer 
16 


16-Bit Belegungsregister rotieren 


Bit für Puffer lóschen 


alle Kanäle schließen 
14 

Sekundäradresse 

Kanal schließen 

nächste Sekundäradresse 
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BERKER alle Kanäle des anderen Drives schließen 


D313 A9 OE LDA #$0E 14 

D315 85 83 STA $83 Sekundäradresse 
D317 A& 83 LDX $83 

D319 BD 2B 02 LDA $022B,X luordnungtabelle 
D31C — C9 FF CMP 4$FF Kanal zugeordnet ? 
D31E FO 14 BEQ $D334 nein 

D320 29 SF AND 8$3F 

D322 83 82 STA $82 Kanal nuaaer 
D324 20 93 DF JSR $DF93 Puffernuaaer holen 
D327 AA TAX 

D328 BD 5B 02 LDA $025B,X Drivenuaaer 
D32B 29 01 AND $$01 isolieren 

D32D C5 7F CMP $7F gleich aktuelle Drivenuamer 3 
D32F DO 03 BNE $D334 nein 

D331 20 27 D2 JSR $D227 Kanal schließen 
D334 C6 83 DEC $83 nächsten Kanal 
D336 10 DF BPL $D317 

D338 60 RTS 
DIIIIIIIIITIIITRIIIITIIIIIIITIIIT 

D339 AS AE LDA $6F 

D33B 48 PHA 

D33C AO 00 LDY $$00 

D33E BA FA LDX $FA,Y 

D340 BS A7 LDA $A7,X 

D342 10 04 BPL $D348 

D344 C9 FF CMP #$FF 

D346 DO 14 BNE $D3SE 

D348 BA TXA 

D349 18 CLC 

0544 69 07 ADC #$07 

D34C AA TAX 

D34D BS Α7 LDA $A7,X 

D34F 10 04 BPL $D355 

D351 C9 FF CMP #$FF 

D353 DO 09 BNE $D35E 

D355 C8 INY 

D356 CO 05 CPY #$05 

D358 90 EA BCC $D33E 

DISA A2 FF LDX @$FF 

D35C DO 1C BNE $D37A 

D35E 86 6F STX $6F 

D360 29 SF AND #$3F 

D362 AA TAX 

D363 B5 00 LDA $00,X 

D365 30 FC BMI $D363 

D367 C9 02 CMP 8402 

D369 90 08 BCC $D373 

D36B Ab bF LDX $6F 

D35D EO 07 CPX #$07 

D36F 90 D7 BCC $D348 

D371 BO E2 BCS $D355 

D373 A^ AE LDY $6F 

D375 a9 FF LDA #$FF 
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D377 
D37A 
D37B 
D37D 
D37E 


YEXEKEXEXEXEXEXERXEEXEKXERXEXEXZXXXEREXEK 


D37F AO 00 LDY #$00 
D381 A9 01 LDA #$01 
D383 2C 56 02 BIT $0256 
D386 DO 09 BNE $D391 
D388 C8 INY 

D389 OA ASL A 
D38A DO F7 BNE $D383 
D38C DH 70 LDA #$70 
D38E 4C C8 Ci JMP $C1C8 
D391 49 FF EOR #$FF 
D393 2D 54 02 AND $0256 
D396 8D 56 02 STA $0256 
D399 98 TYA 

D39A 60 RTS 
λα ERE REE EERE EES 
D39B 20 EB DO JSR $DOEB 
D39E 20 00 C1 JSR $C100 
D3A1 20 AA D3 JSR ΦΡ5ΑΑ 
0544 Ab 82 LDX $82 
0546 BD 3E 02 LDA $023E,X 
D3A9 60 RTS 

DIAA Dé 82 LDX $82 
D3AC 20 25 D1 JSR $D125 
D3AF DO 03 BNE $D3B4 
D3B1 4C 20 Ei JMP $E120 
D3B4 AS 83 LDA $83 
DSBö C9 OF CMP #$0F 
D3B8 FO SA BEQ $D414 
DSBA BS F2 LDA $F2,X 
DSBC 29 08 AND #$08 
DIBE DO 13 BNE $D3D3 
DICO 20 25 Di JSR $D125 
DICI C9 07 CMP #$07 
DACH DO 07 BNE $DSCE 
D3C7 A? 89 LDA 4$89 
D3C9 95 F2 STA $F2,X 
D3CB 4C DE DS JMP $D3DE 
DSCE A? 00 LDA $$00 
D3DO 95 F2 STA $F2,X 
D3D2 60 RTS 

D3D3 AS 83 LDA $83 
D3DS FO 32 BEQ $D409 
D3D7 20 25 Di JSR $D125 


99 A7 00 


68 
85 
BA 
60 


6F 


STA 
PLA 
STA 
TXA 
RTS 


$00A7,Y 


$ OF 


Kanal suchen und belegen 
Bit 0 setzen 
Kanal frei ? 


Bit nach links schieben 
alle Kanäle geprüft ? 


70, ‘no channel’ 


Bitmuster umdrehen 
Bit löschen 
Kanal belegen 


Byte zur Ausgabe holen 

Kanal zum Lesen öffnen 

LED einschalten 

Byte ins Ausgaberegister holen 
Kanal nummer 

Byte holen 


Kanalnummer 

Dateityp prüfen 

keine Rel-Datei ? 

Byte aus Rel-Datei holen 


Sekundäradresse 
15 
ja, Fehlerkanal lesen 


Endeflag gesetzt ? 

nein 

Dateityp prüfen 
Direktzugriffsdatei ? 

nein 

READ und WRITE-Flag setzen 


READ und WRITE-Flag löschen 


Sekundäradresse 
Null, LOAD ? 
Dateityp prüfen 
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D3DA 
D3DC 
D3DE 
D3E1 
D3ES 
D3E6 
Ρ5Ε8 
DIEA 
D3EC 
DIEE 
D3FO 
DSF3 
DAF? 
D3F8 
D3FA 
D3FC 
D3FF 


D400 
D403 
D405 
D408 


D409 
D40C 
D40E 
D411 


D414 
D417 
D419 
D41B 
D41D 
D41F 
D421 
D423 
D425 
D428 
D42A 
D42D 
D42F 
D431 


D433 
D436 
D438 
D43A 
D43C 
DASF 
D441 
D443 
D445 
D447 
D449 
D44C 


Di 


02 


02 


02 


00 


Di 


02 


02 


ED 
D4 


D4 


C1 


Eb 


D1 


D4 


02 


CMP 
BCC 
JSR 
LDA 
CMP 
BNE 
LDA 
STA 
INC 
LDA 
STA 
LDA 
CMP 
BNE 
LDA 
STA 
RTS 


JSR 
LDX 
STA 
RTS 


LDA 
BEQ 
JSR 
JMP 


JSR 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
STA 
JSR 
LDA 
JSR 
DEC 
LDA 
BNE 


JSR 
STA 
BNE 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


#$04 
$D400 
$D12F 
$99,X 
$0244, Y 
$D3EC 
#500 
$99,% 
499,1 
(499,0 
$023E ,Y 
$99, 
$0244, Y 
$D3FF 
4381 
$00F2,Y 


$D156 
$82 
$023E , X 


$0254 
$D400 
$ED67 
$D403 


$D4E8 
#$D4 
$D433 
$95 
#$02 
904553 
8500 
$83 
45125 
8500 
ΦΕδ{ 1 
545 
«$980 
$D445 


$D137 
$85 

$0443 
#$D4 
45468 
8102 
494. X 
«$88 
$F7 

$85 

$0243 


Rel-Datei oder Direktzugriff ? 
nein 

Puffer- und Kanalnummer holen 
Pufferzeiger 

gleich Endezeiger ? 

nein 


Pufferzeiger auf null 
Pufferzeiger erhóhen 
Byte aus Puffer holen 
ins Ausgaberegister 
Pufferzeiger 

gleich Endezeiger ? 
nein 


Flags setzen 


Byte aus Puffer holen 
Kanalnummer 
Byte in Ausgaberegister 


Flag für Directory ? 
nein 
Directoryzeile erzeugen 


Pufferzeiger setzen 
zeigt er vor Puffer fiir Fehlermeldung ? 
nein 


CR 
in Ausgaberegister 
Fehlerflags loschen 


"ok Meldung erzeugen 


Pufferzeiger zurücksetzen 
READ-Flag setzen 


Byte aus Puffer holen 
ins Ausgaberegister 
Pufferzeiger vor Fehlerpuffer setzen 


Hi-Adresse 
READ-Flag setzen 


Datenbyte 
ins Ausgaberegister 


167 


BRERTREBEEREXEEETEERRRETERXTERES nächsten Block lesen 


D44D 20 93 DF JSR $DF93 Puffernusaer holen 

D450 OA ASL A sal 2 

D451 Aa TAX 

D452 A9 00 LDA #$00 

D454 95 99 STA $99,X Pufferzeiger auf Null 
D456 ΑΙ 99 LDA ($99,X) erstes Byte aus Puffer holen 
D458 FO 05 BEQ $D45F kein Folgeblock ? 

D45A Dó 99 DEC $99,X Pufferzeiger auf -1 

D45C 4C 56 Di JMP $D156 nächsten Block lesen 

D45F 60 RTS 

EEE Block lesen 

D460 A9 80 LDA #$80 Befehlskode für Lesen 
D462 DO 02 BNE $D466 
EXTRRRRRRRRRRRRRERERERERRREZGSSSS Block schreiben 

D464 A9 90 LDA #$90 Befehlskode fiir schreiben 
D464 05 7F ORA $7F Drivenumaer 

D468 8D 4D 02 STA $024D Kode merken 

D46B AS F9 LDA $F9 

D46D 20 D3 Dó JSR $D6D3 Parameter an Disk-Controller 
D470 Ab F9 LDX $F9 

D472 4C 93 05 JMP $D593 Befehl ausführen 


var Puffer belegen und Block lesen 
D475 A9 01 LDA #$01 


D477 8D 4A 02 STA $024A Dateityp auf sequentiell 

D47A A9 11 LDA #$11 17 

D47C 85 83 STA $83 Sekunddradresse 

DATE 20 46 DC JSR $DC46 Puffer belegen und Block lesen 
D481 A9 02 LDA $$02 

D483 4C C8 D4 JMP 0458 Pufferzeiger auf 2 
EHERHESESESLEREEEEHEEHEEREEEEE neuen Block anlegen 

D486 A9 12 LDA #$12 18 

D488 85 83 STA $83 Sekundäradresse 

D48A 4C DA DC JMP $DCDA neuen Block anlegen 
ara. Directoryblock schreiben 

D48D 20 3B DE JSR $DESB Track und Sektornuaaer holen 
D490 A9 01 LDA #$01 

D492 85 éF STA $6F ein Block 

D494 AS 69 LDA $69 Schrittweite 10 bei Blockbelegung merken 
D496 48 PHA 

D497 a9 03 LDA #$03 durch 3 bei Directory ersetzen 
D499 85 59 STA $69 

D49B 20 2D Fil JSR $F12D freien Block in BAM suchen 
D49E 68 PLA 

D49F 85 49 STA $69 Schrittweite zurückholen 

D4Ai A9 00 LDA $$00 

D4A3 20 C8 D4 JSR $D4C8 Pufferzeiger auf Null 

D4A6 AS 80 LDA $80 

D4A8 20 Fi CF JSR $CFFi Tracknumaer in Puffer 

D4AB AS 81 LDA $81 

D4AD 20 F1 CF JSR $CFF1 Sektornummer in Puffer 
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D4B0 20 C7 DO JSR $DOC7 Block auf Diskette schreiben 


D4B3 20 99 DS JSR 40599 und prüfen 

D4B6 A9 00 LDA #$00 

0488 20 C8 D4 JSR $D4C8 Pufferzeiger auf Null 
D4BB 20 Fi CF JSR $CFFi Puffer mit Nullen füllen 
D4BE DO FB BNE $D4BB 

DACO 20 F1 CF JSR $CFF1 Null als Folgetrack 
D4C3 a9 FF LDA #$FF 

DACS 45 Fi CF JMP $CFFi $FF als Anzahl der Bytes 
E22 I 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 7 2 2 2 2 2 2 2 2 2 Pufferzeiger setzen 
D4CB 85 AE STA $6F Zeiger merken 

DACA 20 93 DF JSR $DF93 Puffernuaaer holen 
D4CD OA ASL A mal 2 

D4CE AA TAX 

D4CF BS 9A LDA $9A,X Pufferzeiger hi 

D4D1 85 95 STA $95 

D4D3 AS AE LDA $4F 

D4D5 95 99 STA $99,X Pufferzeiger lo, neuer Wert 
D4D7 85 94 STA $94 

D4D9 60 RTS 

tutturur Interne Kanäle schließen 
D4DA A9 11 LDA $$11 17 

D4DC 85 83 STA $83 

D4DE 20 27 D2 JSR $D227 Kanal schließen 

D4E1 A9 12 LDA #$12 18 

D4E3 85 83 STA $83 

D4ES 4C 27 02 JMP $D227 Kanal schließen 
er Pufferzeiger setzen 
D4E8 20 93 DF JSR $DF93 Puffernuaaer holen 
D4EB OA ASL A 

D4EC AA TAX 

D4ED BS 9A LDA $9A,X Pufferzeiger hi 

D4EF 85 95 STA $95 

DáF1 BS 99 LDA $99,X Pufferzeiger lo 

D4F3 85 94 STA $94 

D4F5 60 RTS 

Ber Byte aus Puffer holen 
ὈδΓό 85 71 STA $71 leiger lo 

D4F8 20 93 DF JSR ΦΡΕΟΣ Puffernuasmer holen 
D4FB AA TAX I 

D4FC BD EO FE LDA $FEEO,X Hi-Byte Pufferadresse 
D4FF 85 72 STA $72 Zeiger hi 

0501 AO 00 LDY #$00 

D503 Bi 71 LDA ($71) ,Y Byte aus Puffer holen 
D505 60 RTS 


BER Track und Sektornumaer überprüfen 
D506 BD 5B 02 LDA $025B,X Befehlskode für Disk-Controller 


D509 29 01 AND #$01 Drivenuaaer 

0508 0D 4D 02 ORA $024D plus Befehlskode 
DSOE 48 PHA aerken 

DSOF 86 F9 STX $F9 Puffernuaner 
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D311 ΒΑ ΤΧΑ 

D512 04 ASL A 
D513 AA TAX 

D514 B5 07 LDA $07,X 
D516 8D 4D 02 STA $024D 
D519 BS 06 LDA $06,X 
D51B FO 2D BEQ $D54A 
D91D CD D7 FE «CMP $FED7 
D520 BO 28 BCS $D54A 
D522 AA TAX 

D523 68 PLA 

D524 48 PHA 

D525 29 F0 AND #$FO 
D527 C9 90 CMP #$90 
D529 DO 4F BNE $D57A 
D52B 68 PLA 

D52C 48 PHA 

D52D 4A LSR A 
DS2E BO 05 BCS $D535 
D530 AD O1 Οἱ LDA $0101 
D533 90 03 BCC $D538 
0535 AD 02 01 LDA $0102 
D538 FO 05 BEQ $D53F 
0534 CD DS FE CMP $FEDS 
D53D DO 33 BNE $D572 
D53F BA ΤΧΑ 

0540 20 4B Ε2 JSR $F24B 
D543 CD 40 02 CMP $024D 
D546 FO 02 BEG $D54A 
D548 BO 30 BCS 40574 
0544 20 52 DS JSR 450552 
0540 A9 64 LDA #$64 
DS4F 4C 45 E6 JMP $E645 
LASSE ZI SZ EI SR SE ES III 222 
D552 A5 F9 LDA $F9 
D554 OA ASL A 
D555 AA TAX 

D556 B5 06 LDA $06,X 
D558 85 80 STA $80 
DSSA BS 07 LDA $07,X 
DSSC 85 Bi STA $81 
DOSE 60 RTS 

DSSF AS 80 LDA $80 
D361 FO EA BEQ $D54D 
D563 CD D7 FE CMP $FED7 
D566 BO ES BCS $D54D 
D548 20 4B F2 JSR $F24B 
D56B C5 81 CMP $81 
D56D FO DE BEQ $D54D 
DS6F 90 DC BCC 40540 
D571 60 RTS 

0572 20 32 D5 JSR 45552 
D575 4973 LDA #$73 


aal 2 


Sektor 

aerken 

Track 

66, ‘illegal track or sector‘ 
36, höchste Tracknumaer + 1 
66, ‘illegal track or sector’ 


Befehlskode 


Kode fur Schreiben ? 
nein 


‘A’, Foraatkennzeichen 

73, 'cbm dos v2.5 1541’ 
Tracknumaer 

maximale Sektornummer holen 
mit Sektornummer vergleichen 
gleich, dann Fehler 

kleiner ? 

Track und Sektornummer holen 


66, 'illegal track or sector’ 
Track und Sektornumaer holen 
Puffernummer 

#2 

als Index 


Track 


Sektor 


Track 

null, dann Fehler 

36, maximale Tracknusamer + 1 
66, ‘illegal track or sector’ 
maxiaale Sektornumaer holen 
Sektor 


Fehler 


Track und Sektornuanmer holen 
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D577 AL 45 ER JMP $E645 
D57A As FI LDX $F9 
DS7C 68 PLA 

D57D BD 4D 02 STA $024D 
D580 95 00 STA $00,X 
0582 9D 5B 02 STA $025B,X 
D585 60 RTS 
EXEXXEXEAEXAXXEKXEEXXEEXEEXEREXEEIEE 
D586 49 80 LDA #$80 
D588 DO 02 BNE $D58C 
λα 1111211111 
DS8A A9 90 LDA #$90 
D38C 05 7F ORA $7F 
DS8E Ab F9 LDX $F9 
D590 BD 4D 02 STA $024D 
D593 AD 4D 02  LDA $024D 
D596 20 OE DS JSR $DSOE 
SCS TSS C SE LOST ESTP SS SES ETE TET 
D599 20 Ab D5 JSR $D5Ad 
D59C BO FB BCS $D599 
D59E 48 PHA 

DS9F A9 00 LDA #$00 
DSAI 8D 98 02 STA $0298 
DSA4 68 PLA 

DSAS 60 RTS 

DSAG BS 00 LDA $00,X 
DSAB 30 1A BMI $D5C4 
DSAA C9 02 CMP #$02 
DSAC 90 14 BCC $D5C2 
DOAE C9 08 CMP #$08 
DSBO FO 08 BEQ $DSBA 
D5B2 C9 OB CMP #$0B 
D5B4 FO 04 BEQ 490584 
D5Bó C9 OF CMP 840ξ 
DSB8 DO OC BNE $D5C4 
D5BA 2C 98 02 BIT $0298 
DSBD 30 03 BMI $D5C2 
DSBF AU SF DA JMP 4065Ε 
DSC2 18 CLC 

DSC3 60 RTS 

D5C4 38 SEC 

DSC5S 60 RTS 

DSC6 98 TYA 

DSC7 48 PHA 

D5C8 AS 7F LDA $7F 
DSCA 48 PHA 

DSCB BD 5B 02 LDA $025B,X 
DSCE 29 01 AND #$01 
D5DO 85 7F STA $7F 


73, 'cbm dos v2.6 1541’ 
Puffernuaaer 


Befehlskode für Disk-Controller 
in Befehlsregister 
und in Tabelle schreiben 


Block lesen 
Kode für Lesen 


Block schreiben 
Kode für schreiben 
Drivenummer 
Puffernuaner 


Befehlskode 
Track und Sektor prüfen und an Disk-Controller 


Ausführung prüfen 
Ausführung prüfen 
Ende abwarten 

Rückmeldungskode 


Fehlerflag löschen 


Befehlskode (Bit 7) noch im Register ? 
ja 

Rückmeldung kleiner 2 

dann fehlerfreie Durchführung 

B 

dann Write Protect 

11 

dann ID mismatch 

15 


Fehlermeldung erzeugen 


Ausführung beendet 


Ausführung noch nicht beendet 


Drivenumaer 


Drivenuamer 
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D5D2 
DSD3 
DSDé 
D5D9 
DSDC 
DSDE 
DSEO 
DSES 
DSE6 
DSE8 
DOEN 
DSEB 
DSED 
DSEF 
DSF i 
DSF4 
DSF6 
DSF8 
DSFA 
DSFD 
D400 
D603 
D404 
D607 
Ρ60Α 
D60D 
D610 
0615 
D616 
D619 
D61B 
D51D 
D420 
D623 
D425 
D628 
D62B 
D52D 
D62F 
C631 
D433 
D435 
D636 
D438 
ῃ654 
D63C 
D63F 
D641 
D644 
D645 
D448 
D64A 
D64B 
D64D 
D6AF 
D6S1 


FE 
02 
Dó 


Dó 
02 


02 


02 
Dó 


02 


Eó 


02 


TAY 
LDA 
STA 
JSR 
CMP 
BCS 
JMP 
LDA 
AND 
PHA 
CMP 
BNE 
LDA 
ORA 
STA 
BIT 
BVS 
LDA 
STA 
STA 
LDY 
LDA 
SEC 
SBC 
STA 
LDA 
JSR 
INC 
JSR 
CMP 
BCC 
LDY 
LDA 
BNE 
LDA 
JSR 
LDA 
CMP 
BCC 
BIT 
BPL 
PLA 
CMP 
BNE 
ORA 
STA 
LDA 
JSR 
PLA 
BIT 
BMI 
PHA 
LDA 
ORA 
STA 
LDA 


$FECA,Y 
$026D 
$D556 
$502 
$D5E3 
$D66D 
$025B,X 
#$F0 


4490 
$D5F4 
$7F 
#$B8 
$025B,X 
$55 
40631 
#500 
$0299 
$029A 
$0299 
$0294 


$FEDB,Y 
$0294 
$FEDB,Y 
$D676 
$0299 
$D6A6 
#502 
$0625 
$0299 
$FEDB,Y 
$D600 
$0294 
$0576 
$00, X 
#$02 
$D45C 
TTT 
$D644 


4490 
$D63F 
$7F 
$025B,X 
$00,X 
ΦΕΦΟΑ 


$0298 
$D64D 


8150 
$7F 
$00,X 
$00,X 


Bitauster für Drive 


Leseversuch 
Rückaeldung 
nicht ok ? 
fertig 
Befehlskode 
isolieren 


Kode für Schreiben 
nein 
Drivenuaaer 


Zähler für Suche neben dea Track 


Zähler 


Konstanten für Leseversuche neben dem Track 


Kopf neben dem Track positionieren 
Zähler erhöhen 

Leseversuch 

Rückaeldung 

kleiner 2, ok ? 

Zähler laden 

Konstanten holen 

noch nicht Null (Tabellenende) ? 


Kopf positionieren 


Rückmeldung 
ok 7 


Befehlskode 

tür Schreiben ? 

nein 

Drivenuaaer 
Befehlskode in Tabelle 
Rückmeldung 
Fehleraeldung setzen 


Befehlskode für Kopfpositionierung 
Drivenuaner 
in Befehlsregister 
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D453 
D655 
D458 
DASA 
D6SC 
D65D 
D65F 
D661 
D643 
D666 
D469 
Ὁ ὁὁΒ 
D56D 
D66E 
D670 
D671 
D672 
D474 
D475 


D676 
D478 
D67A 
D67C 
D57E 
D581 
D682 
D684 
D686 


D688 
D68A 
D58D 
D58E 
D590 
D692 


D693 
D694 
D495 
D697 
ῃ694 
D69D 
D59F 
DöA1 
D6A4 
D6AS 


DEAG 
DAAB 
D6AA 
DAAB 
D6AE 
DóBi 
D6B4 
D6B7 


00 


Dó 


02 
Dó 


Dó 


Dó 


02 
02 


02 


02 
1C 
1C 
02 


BMI 
JSR 
CMP 
BCS 
PLA 
C MP 
BNE 
ORA 
STA 
JSR 
CMP 
BCS 
PLA 
STA 
PLA 
TAY 
LDA 
CLC 
RTS 


CMP 
BEQ 
BMI 
LDY 
JSR 
SEC 
SBC 
BNE 
BEQ 


LDY 
JSR 
CLC 
ADC 
BNE 
RTS 


PHA 
ΤΥΑ 
LDY 
STA 
CMP 
BEQ 
LDA 
STA 
PLA 
RTS 


LDA 
AND 
TAY 
LDA 
EOR 
STA 
LDA 
STA 


$D651 
ΦΡ6βό 
8502 

950655 


44190 
$D66D 
$7F 
$025B,X 
$D5A6 
#$02 
$D63F 


$7F 


$00,X 


#$00 
$D692 
$D688 
#$01 
$D693 


#$01 
$D57C 
$D692 


SFF 
$0593 


#$01 
$D688 


$7F 
$02FE,Y 
$02FE,Y 
$D69A 
8100 
$02FE,Y 


$66 
#$3F 


$026D 
$1000 
$1000 
$025B,X 
$00,X 


Ausführung abwarten 
Befehlsausführung nochaal versuchen 
Rückeeldung 

fehlerhaft ? 


Befehlskode für Schreiben 
nein 

Drivenumaer 

in Tabelle 

Ausführung nochmal versuchen 
Rückmeldung 

Fehler ? 

Drivenummer zurückholen 


Fehlerkode 
Flag für Ausführung beendet 


Daten für Kopfpositionierung übergeben 


Daten für Kopfpositionierung übergeben 


Drivenumaer 


Rückaeldung des Disk-Controllers abwarten 


Maximalzahl der Wiederholungen 


Bit für LED 
LED uaschalten 


Befehl 
an Disk-Controller übergeben 
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$00,X 
$D6B9 
#502 

$D&C4 


$D6AB 


$026D 
$1000 
$1C00 


$DF93 
A 


$80 
$0006, Y 
$81 
$0007,Y 
$7F 
A 


$83 
$82 
$81 
$80 


#$11 
$83 
$DESB 
$024A 


$E2 
#$01 
$7F 
$F9 
$025B,X 
A 
$0715 
#$01 
$0292 
$C5AC 
$0730 
$D73D 


$0291 
$D726 
$81 


0689 B5 00 LDA 
D&BB 30 FC BMI 
D&BD C9 02 CMP 
D&BF 90 03 BCC 
D&Ci 88 DEY 
D&C2 DO E7 BNE 
DACA 48 PHA 
DACS AD 6D 02 LDA 
DàC8 OD 00 1C ORA 
D&CB BD 00 1C STA 
DACE 48 PLA 
D6CF 60 RTS 
ΕΣ ΣΣΣΣΣΣΣΣΣΣΣΣΣΣΙΣΣΣΣΣΣΣΣΣΣΣΣΣΣ; 
DADO 20 93 DF JSR 
D&D3 0A ASL 
D&D4 AB TAY 
DADS A5 80 LDA 
D&D7 99 06 00 STA 
DADA AS 81 LDA 
DADC 99 07 00 STA 
D6DF AS 7F LDA 
DEI OA ASL 
D&E2 AA TAX 
DEZ ¿O RTS 
ΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣ, 
D&E4 AS 83 LDA 
DEE 48 PHA 
D6E7T AS 82 LDA 
D6E9 48 PHA 
DER AS 81 LDA 
D&EC 48 PHA 
D&ED AS 80 LDA 
D6EF 48 PHA 
D&FO Ας 11 LDA 
ῃ6 2 85 83 STA 
D&F4 20 3B DE JSR 
DAF7 AD 4A 02 LDA 
DAFA 48 PHA 
D6FB AS E2 LDA 
DAFD 29 oi AND 
DAFF 85 7F STA 
D701 Ab F9 LDX 
D703 5D SB 02 EOR 
D706 44 LSR 
D707 90 0C BCC 
D709 42 01 LDX 
Diop BE 92 02 SIX 
D70E 20 AC C5 JSR 
D711 FO 1D BEQ 
D713 DO 28 BNE 
0715 AD 91 02 LDA 
D718 FO OC BED 
D71A C5 81 CMP 


und Rückmeldung 
abwarten 

ok ? 

ja 

làhler erniedrigen 
nochaal versuchen 


LED aus 


Parameter an Disk-Controller übergeben 
Puffernuamer holen 


Tracknuamer 
übergeben 
Sektornuanmer 
übergeben 
Drivenummer 
mal 2 

nach X 


Datei in Directory eintragen 
Sekundäradresse 


Kanalnuamer 
Sektornumaer 


Tracknummer 
nerken 


Sekundäradresse 17 

Track und Sektornuamer holen 
Dateityp 

aerken 

Drivenuamer 


setzen 
Puffernuamer 


gleiche Drivenumaer 2 


leiger in Directory 

Directory laden und ersten Eintrag suchen 
nicht gefunden ? 

gefunden ? 


Sektornummer im Directory 


gleich null 
gleiche Sektornuaner ? 
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D71C + FO IF BEQ $D73D ja 


D71E 85 81 STA $81 Sektornuamer merken 

D720 20 60 D4 JSR 80460 Block lesen 

D723 4C 3D D7 JMP $D73D 

D726 A9 01 LDA #$01 

0728 8D 92 02 STA $0292 leiger auf eins 

D72B 20 17 Có JSR 45617 nächsten Eintrag ia Directory suchen 
D72E DO OD BNE $D73D gefunden ? 

D730 20 8D D4 JSR $D48D Directoryblock schreiben 
D733 AS 81 LDA $81 Sektornummer 

D735 8D 91 02 STA $0291 

D738 A9 02 LDA #$02 

D73A 8D 92 02 STA $0292 Zeiger auf 2 

D73D AD 92 02 LDA $0292 

D740 20 C8 D4 JSR $D4CB Pufferzeiger setzen 

D743 68 PLA 

D744 8D 44 02 STA $024A Dateityp 

D747 c? 04 CMP #$04 Rel-Datei ? 

D749 DO 02 BNE $D74D nein 

D74B 09 80 ORA 43480 Bit 7 setzen 

D74D 20 Fi CF JSR $CFFi und in Puffer schreiben 
0750 68 PLA 

D751 BD 80 02 STA $0280 Folgetrack 

D754 20 Fi CF JSR $CFFi in Puffer 

D757 68 PLA 

D758 8D 85 02 STA $0285 Folgesektor 

D75B 20 Fi CF JSR $CFF1 in Puffer 

D7SE 20 93 DF JSR $DF93 Puffernumaer holen 

D761 AB TAY 

D762 AD 7A 02 LDA $027A Zeiger auf Drivenumaer 
D765 AA TAX 

D766 AN 10 LDA #$10 16, Länge des Filenanens 
D768 20 5E Có JSR $Cö6E Filenamen in Puffer schreiben 
D75B AO 10 LDY #$10 

D76D A9 00 LDA 8400 

D76F 91 94 STA ($94),Y ab Position 16 mit Nullen füllen 
D771 CH INY 

D772 CO 1B CPY #$1B schon Position 27 ? 

D774 90 F9 BCC $D76F nein 

D776 AD 44 02 LDA $0244 Dateityp 

D779 C9 04 CMP #$04 Rel-Datei 

D77B DO 13 BNE $D790 nein 

D77D AO 10 LDY #$10 

D77F AD 59 02 LDA $0259 Track 

0782 91 94 STA ($94),Y 

D784 C8 INY 

D785 AD SA 02 LDA $025A und Sektor 

07868 9194 STA ($94),Y der Side-Sektoren in Directoryeintrag 
D78A C8 INY 

D78B AD 58 02 LDA $0258 Recordlänge 

D78E 91 94 STA ($94),Y in Directory 

D790 20 64 D4 JSR $D464 Block schreiben 

D793 68. PLA 

D794 85 82 STA $82 Kanalnumaer 

0796 AA TAX 
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D797 68 PLA 

0798 85 83 STA $83 
D79A AD 91 02 LDA $0291 
D79D 85 DB STA $D8 
D79F 9D 60 02 STA $0260,X 
D7A2 AD 92 02 LDA $0292 
D7AS 85 DD STA $DD 
0747 9D 66 02 STA $0266,X 
D7AA AD 4A 02 LDA $024A 
D7AD 85 E7 STA $E7 
D7AF AS 7F LDA $7F 
D7B1 85 E2 STA $E2 
D7B3 60 RTS 
αλλ 11111111. 
0784 AS 83 LDA $83 
D7B6 8D 4C 02 STA $024C 
D7B9 20 B3 C2 JSR $C2B3 
D7BE BE 2A 02 STX $0228 
D7BF ΑΕ 00 02 LDX $0200 
D7C2 AD 4C 02 LDA $024C 
D7C5 DO 2C BNE $D7F3 
D7C7 EO 2A CPX #$2A 
D7C9 DO 28 BNE $D7F3 
D7CB AS 7E LDA $7E 
D7CD FO 4D BEQ $D81C 
D7CF 85 80 STA $80 
1751 AD 6E 02 LDA $026E 
D7D4 85 7F STA $7F 
0706 85 E2 STA $E2 
D7D8 AI 02 LDA #$02 
D7DA 85 E7 STA $E7 
D7DC AD AE 02 LDA $026F 
D7DF 85 81 STA $81 
D7E1 20 00 Ci JSR $C100 
D7E4 20 46 DC JSR $DC46 
D7E7 AD 04 LDA $$04 
D7E9 05 7F ORA $7F 
D7EB Ab 82 LDX $82 
D7ED 99 EC 00 STA $00EC,Y 
D7FO 46 94 Ci JMP 45194 
D7F S3 EO 24 CPX #$24 
D7FS DO 1E BNE 40815 
D7F7 AD 4: 02 LDA $024€ 
D7FA DO 05 BNE $D7FF 
D7FC 4C 55 DA JMP 45455 
D7FF 20 Di C1 JSR $C1D1 
D802 AD 85 FE (04 $FEBS 
D805 85 80 STA $80 
D807 A9 00 LDA #$00 
D809 85 81 STA $81 
D80B 20 44 DC JSR $DC46 
DROE AS 7F LDA $7F 
D810 09 02 DRA #$02 


Sekundäradresse 


Dateityp 


Drivenuaner 


OPEN-Befehl, Sekundäradresse <> 15 
Sekundäradresse 


Zeilenlänge holen, Flags löschen 


erstes Zeichen aus Puffer 
Sekundäradresse 

ungleich 0 (LOAD) ? 

+ 


letzte Tracknummer 


Tracknuaner 
letzte Drivenummer 
Drivenuaaer 


Dateityp auf Programa 
letzte Sektornuaaer 

Sektor 

LED einschalten 

Puffer belegen, Block lesen 
Dateityp 

Drivenuaaer 

Kanalnuaner 

Flag setzen 

fertig 


$’ 
nein 
Sekundäradresse 
ungleich null ? 
OPEN $ 


Zeile bis zu Ende analysieren 
18, Directorytrack 
Track 


Sektor 0 


Puffer belegen, Block lesen 
Drivenuaaer 
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D812 


D815 
D817 
D819 


D81C 
D81E 
D821 
D823 
D825 
0828 
D82B 
D82E 
D830 
0832 
D834 
D835 
D837 
D839 


D83C 
D83D 
D83F 
D840 
D843 
D845 
D848 
D849 
D84C 
D84F 
D852 
D855 
D857 
D85A 
D85D 
0860 
D861 
0864 
D866 
0869 
D86A 
D8óD 
Ρ86Ε 
D871 
D873 
D876 
D879 
D87B 
D87D 
D87F 
D882 
D884 
D887 
D88ñ 
D88C 


D7 


CB 


02 


02 
DO 
C1 


C1 


02 
02 


JMP 


CPX 
BNE 
JMP 


LDA 
STA 
LDA 
STA 
STA 
JSR 
JSR 
BNE 
LDX 
BEQ 
TXA 
BEQ 
LDA 
JMP 


DEY 
BEQ 
DEY 
STY 
LDA 
JSR 
INX 
STX 
JSR 
JSR 
JSR 
LDX 
STX 
STX 
STX 
INX 
CPX 
BCS 
JSR 
INX 
CPX 
BCS 
CPY 
BEQ 
JSR 
LDX 
STX 
CPX 
BCS 
STX 
LDA 
STA 
LDA 
BNE 
LDA 


$D7EB 


#$23 
$D82B 
$CB84 


#$02 
$0296 
8500 
$7F 
$028E 
$D042 
$C1ES 
$D834 
8500 
90840 


90856 
8550 
45158 


90840 


90274 
8580 
0208 


$0278 
$C312 
$C3CA 
$C49D 
8500 

$0258 
$0297 
90244 


$0277 
$D876 
$DA09 


$0277 
908076 
8504 
$D8B1 
$DA09 
$024C 
$83 
#502 
$D891 
$0297 
#$40 
$02F9 
$024A 
$D8A7 
#$02 


weiter wie oben 
E M 


Direktzugriffsdatei óffnen 


Dateityp Programa 
Drive O 


BAM laden 
leile analysieren 
Doppelpunkt gefunden ? 


Koama gefunden ? 
nein 


30, ‘syntax error’ 


Zeiger auf Drivenumaer 
Shift CR 
leile bis Ende untersuchen 


Koaaazáhler 

Drivenusasmer holen 

Drivenuaser prüfen 

Dateieintrag ia Directory suchen 
Defaultwerte 

Recordlánge 


Dateityp 


Koasa vor Gleichheitszeichen 7 
nein 
holt Filetyp und Betriebsart 


weiteres Komma 7 
nein 


holt Filetyp und Betriebsart 


Sekundäradresse 

größer gleich 2 ? 

ja 

0 oder 1 (LOAD oder SAVE) 


Dateityp 
nicht deleted 
Prg 
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D88E 8D 4A 02 STA $024A 
D891 AD 4A 02 LDA $024A 
D894 DO 11 BNE $D8A7 
D896 AS E7 LDA $E7 
D898 29 07 AND #$07 
D89A BD 4ñ 02 STA $024A 
D89D AD 80 02 LDA $0280 
DBAO DO 05 BNE $D8A7 
DBA2 A9 01 LDA #$01 
DBA4 8D 4A 02 STA $024A 
DBA7 AD 97 02 LDA $0297 
DBAA C9 01 CMP 8401 
DBAC FO 18 BEQ $D8C4 
DBAE 4C 40 D9 JMP $D940 
D8B1 BC 7A 02 LDY $027A,X 
D8B4 B9 00 02 LDA $0200,Y 
D8B7 8D 58 02 STA $0258 
DBBA AD 80 02 LDA $0280 
D8BD DO B7 BNE $D876 
D8BF A9 Οἱ LDA #$01 
D8C1 BD 97 02 STA $0297 
D8C4 DO BO BNE 40876 
D8C4 AS E7 LDA $E7 
D8C8 29 80 AND #$80 
D8CA AA TAX 

D8CB DO 14 BNE $D8E1 
D8CD A9 20 LDA #$20 
D8CF 24 E7 BIT $E7 
0801 FO 06 BEQ $D8D9 
D8D3 20 B6 CB JSR $C8B4 
0806 AL EA D9 JMP $D9E3 
D8D9 AD 80 02 LDA $0280 
D8DC DO 03 BNE $D8E1 
D8DE AL E3 05 JMP $D9E3 
DBE1 AD 00 02 LDA $0200 
DBE4 C9 40 CMP #$40 
DBE& FO OD BEQ $D8F5 
DBEB BA ΤΧΑ 

D8E9 DO 05 BNE $D8FO 
DBEB A9 63 LDA 8565 
DBED 4C CB C1 JMP $C1C8 
D8F0 A9? 33 LDA #$33 
D8F2 4C C8 Ci JMP $C1C8 
LAS SS 2222 72 7 E 
D8FS AS E7 LDA $E7 
D8F7 29 07 AND #$07 
D8F9 CD 4A 02 CMP $024A 
D8FC DO 67 BNE $D965 
DBFE C9 04 CMP 4404 
D900 FO 63 BEQ $D965 
D902 20 DA DC JSR $DCDA 
D905 AS 82 LDA $82 


als Dateityp 


Dateityp aus Befehlszeile holen 


Tracknummer 
ungleich null ? 


Dateityp sequentiell 
Betriebsart 

'W' 

ja 


Zeiger hinter zweites Komma 
Wert holen 

Recordlànge 

Tracknummer 


“we 
als Betriebsart 


Dateityp 
Jokerflag isolieren 


Joker im Namen 


war Datei geschlossen ? 

ja 

Byte 0 in Puffer und Block schreiben 
Side-Sektor anlegen, fertig 


Tracknummer des ersten Blocks 

schon vorhanden 

Side-Sektor Block anlegen 

erstes Zeichen aus Eingabepuffer 
° Klammeraffe ? 

ja 

Joker gesetzt ? 

63, ‘file exists’ 

33, ‘syntax error’ 

öffnen eines Files mit überschreiben 

Filetyp 

isolieren 

Filetypen unterschiedlich ? 

Rel-File ? 


64, ‘file type mismatch’ 
neuen Sektor anlegen 


178 


D907 
D90A 
D90C€ 
D90E 
D911 
D914 
D917 
D919 
D91B 
D91D 
D91F 
D921 
D923 
D925 
D926 
0128 
D92A 
D92D 
D92F 
D932 
D934 
D937 
DISA 
D95D 


D940 
D943 
D945 
D947 
DI4A 
D94D 
D94F 
D951 
0953 
D955 
D957 
D959 
DISC 
DISE 
D760 
D963 
D965 
D967 
DFAA 
D95C 
DI6F 
D972 
D974 
D974 
0378 
D97A 
D97C 
D97E 
0380 
0782 
D983 


02 


DO 
02 
D4 


02 
02 
02 
DE 
D4 
D9 
02 


οι 
02 


Ci 


02 


Ci 


02 
02 


STA 
LDA 
STA 
JSR 
LDA 
JSR 
LDY 
LDA 
ORA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDX 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
JMP 


LDA 
BNE 
LDA 
JMP 
LDA 
CMP 
BEQ 
LDA 
BIT 
BEQ 
LDA 
JMP 
LDA 
AND 
CMP 
BEQ 
LDA 
JMP 
LDY 
STY 
LDX 
CPX 
BNE 
CMP 
BEQ 
LDA 
AND 
STA 
LDA 
PHA 
LDA 


$0270 
#$11 
$83 
$DOEB 
$0294 
$D4C8 
#$00 
($94) ,Y 
4420 
(494) ,Y 
#$1A 
$80 
($94) ,Y 


$81 
($94) ,Y 
$0270 
$D8 
$0260,X 
$DD 
$0266,X 
$DE3B 
$D464 
$D9EF 


$0280 
$D94A 
#$62 
$C1C8 
$0297 
#503 
$D95C 
#$20 
$E7 
$D95C 
8860 
$C1C8 
$E7 
8507 
40244 
$0954 
#$ó4 
$C1C8 
#$00 
$0279 
$0297 
#$02 
$0990 
#504 
$0945 
($94) ,Y 
#$4F 
($94) ,Y 
$83 


#$11 


Kanalnummer nerken 


Kanal 17 
Lesekanal eröffnen 


Pufferzeiger für Directory setzen 


Filetyp 
Bit 5 setzen, Datei offen 


Track 


und Sektor 
beim öffnen mit ‘Klammeraffe’ 
Kanalnummer 


Zeiger in Directoryblock 


Track und Sektornummer holen 
Block schreiben 
Track-, Sektor- und Drivenumme bereitstellen 


erste Tracknummer 
Datei nicht gelóscht ? 


62, 'file not found’ 

Betriebsart 

T 

ja, dann kein Test auf nicht geschlossene Datei 
Bit 5 

in Dateityp testen 

nicht gesetzt, ok 


60, 'write file open’ 


Dateityp isolieren 
übereinstimaung mit Typ aus Befehl ? 
ja 


64, ‘file type aismatch’ 


Betriebsart 
"A’, Append 
nein 

Rel-Datei ? 

ja, dann Fehler 


Bit 4,5 und 7 löschen, 


als offen markieren 
Kanalnuaaer merken 
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D985 
0987 
Ρ98Α 
D98D 
D98E 
D990 
D993 
D996 
D998 
D994 
D99D 


D9AO 
DIA2 
ΡΦΑ4 
D947 
DIAB 
DIAA 
DIAD 
DIAE 
D9BO 
D9B3 
D9B6 
D9B7 
D9B9 
D9BC 
D9BE 
DICH 
D9C3 
D9co 
D9C9 
DICB 
DICE 
D9DO 
D9D3 
D9D5 
D9D8 
D9DAÀ 
D9DD 
D9DF 
D9E2 


DIES 
DIES 
D9E7 
D9E9 
 D9EC 
D9EF 
D9F1 
D9F3 
D9F5 
D9F8 
D9FA 
DIFC 
DIFE 
DAO1 


DE 
04 


D9 
02 


DA 


C1 


02 


02 


DC 
Dó 


DE 


02 


STA 
JSR 
JSR 
PLA 
STA 
JSR 
LDA 
CMP 
BNE 
JSR 
JMP 


LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
LDX 
STA 
TXA 
BEQ 
CMP 
BEQ 
LDA 
JSR 
LDX 
LDA 
STA 
LDA 
STA 
JSR 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
RTS 


LDA 
AND 
STA 
JSR 
JSR 
LDA 
CMP 
BCS 
JSR 
LDA 
STA 
LDA 
STA 
LDA 


$83 
$DESB 
$D464 


$83 
$DIAO 
$0297 
8502 
$D9EF 
$DA2A 
$C194 


8413 
($94) ,Y 
$0259 


($94), Y 
$025A 


($94) ,Y 
$0258 
$0258 


$D9C3 
$0258 
$D9C3 
4450 
45158 
$0279 
$0280, Xx 
$80 
$0285, x 
$81 
$DC46 
$82 
$0279 
$D8,X 
$0260,Y 
$DD,X 
$0266 ,Y 


$E2 
8501 
$7F 
$DCDA 
$D6E4 
$83 
#$02 
$DA06 
$DESE 
$80 
$7E 
$7F 
$026E 
$81 


Kanal 17 
Track- Sektornuaaer holen 
Block schreiben 


Kanalnuaaer zurückholen 
Side-Sektor-Parameter übernehnen 
Betriebsart 

'A' Append 

nein 

Append vorbereiten 

fertig, Diskstatus bereitstellen 


Track 


und Sektor des ersten Side Sector Blocks 


Recordlänge 
letzte Recordlänge 


letzte Recordlänge null 
Recordlänge gleich ? 
ja 


$0, ‘record not present’ 


Track 


Sektor 


Drivenuaaer 

isolieren 

Drivenuaaer 

Block anlegen 

Datei ia Directory eintragen 
Kanalnuaaer 


gróBer gleich 2 ? 
Track und Sektornuaser holen 


Drivenuaaer 


Sektor 
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DA72 EE 78 02 INC $0278 
DA7S ΕΕ 7A 02 INC $027A 


DA78 A9 80 LDA #$80 

DA7A 85 Ε7 STA $E7 Jokerflag setzen 

DA7C A9 2A LDA #$2A ‘+ 

DATE BD 00 02 STA $0200 als Dateiname in Befehlspuffer 
DA81 8D 01 02 STA $0201 

DA84 DO 18 BNE $DA9E unbedingter Sprung 

DAB& 20 ES C1 JSR $C1ES Eingabezeile bis zum ':' testen 
DAB? DO 05 BNE $DA90 gefunden ? 

DABB 20 DC C2 JSR $C2DC Flags löschen 

DABE AO 03 LDY #$03 

DA90 88 DEY 

DA91 88 DEY 

DA92 BC 7A 02 STY 40274 leiger auf Drivenumaer in Befehl 
DA9S 20 00 C2 JSR $C200 leiie analysieren 

0498 20 98 C3 JSR 405598 Typ der Datei enitteln 

DA9B 20 20 C3 JSR $C320 Drivenumaer holen 

DA9E 20 CA C3 JSR $C3CA Drive bei Bedarf initialisieren 
DAAI 20 B7 C7 JSR $C7B7 Disketten-Titel bereitstellen 
DAA4 20 9D C4 JSR $C49D Directory laden 

DAA7 20 9E EC JSR $EC9E Directory erzeugen und bereitstellen 
DAAA 20 37 D1 JSR $D137 Byte aus Puffer holen 

DAAD A& 82 LDX $82 Kanalnuaner 

DAAF 9D 3E 02 STA $023E,X Byte in Ausgaberegister 

DAB2 A3 7F LDA $7F Drivenuamer 

DAB4 BD BE 02 STA $028E als letzte Drievnummer aerken 
DAB7 09 04 DRA #$04 

DAB9 95 EC STA $EC,X PR6-Flag 

DABB Α9 00 LDA #$00 

DABD 85 43 STA 443 leiger in Eingabepuffer rücksetzen 
DABF 60 RTS 

EEXXAEXEREREXERXRAREAERAARREXXEXEX CLOSE-Routine 

DACO A? 00 LDA #$00 

DAC2 8D F9 02 STA $02F9 

DACS AS 83 LDA $85 Sekundäradresse 

DAC7 DO OB BNE $DAD4 ungleich null ? 

DAC? A9 00 LDA #$00 Sekundaradresse 0, LOAD 

DACB 8D 54 02 STA $0254 

DACE 20 27 D2 JSR $D227 Kanal schlieBen 

DAD1 4C DA D4 JMP $D4DA interne Kanäle 17 und 18 schließen 
DAD4 C9 OF CMP #$0F 15 

DADA FO 14 BER $DAEC ja, alle Kanäle schließen 

DAD8 20 02 DB JSR $DB02 Datei schlieBen 

DADB AS 83 LDA $83 Sekundäradresse 

DADD C9 02 CMP #$02 

DADF 90 FO BCC $DAD1 kleiner 2 ? 

DAE1 AD 5C 02 LDA $025C 

DAE4 DO 03 BNE $DAE9 

DAES 4C 94 C1 JMP $C194 Abschluß 

DAE? 4C AD Ci JMP $C1AD 

DAEC A9 OE LDA #$0E 14 

DAEE 85 83 STA $83 Sekundaradresse 
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DAFO 20 02 DB JSR $DBO2 
DAFS Có 83 DEC $83 
DAFS 10 F9 BPL $DAFO 
DAF7 AD 6C 02 LDA $028C 
DAFA DO 03 BNE $DAFF 
DAFC 4C 94 C1 JMP $C194 
DAFF AC AD Ci JMP $C1AD 
BERKER EEE 
DBO2 Ab 83 LDX $83 
DBO4 BD 2B 02 LDA $022B,X 
DBO7 C9 FF CMP #$FF 
DB09 DO 01 BNE $DBOC 
DBOB 60 RTS 

DBOC 29 OF AND #$0F 
DBOE 85 82 STA $82 
DB10 20 25 Di JSR $D125 
DB13 C9 07 CMP 8507 
DB15 FO OF BEQ $DB26 
DB17 C9 04 CMP #$04 
DB19 FO 11 BEQ $DB2C 
DBIB 20 07 Di JSR $D107 
DBIE BO 09 BCS $DB29 
DB20 20 62 DB JSR $DBé2 
DB23 20 AS DB JSR $DBA5 
DB26 20 FA EE JSR $EEF4 
DB29 4C 27 02 JMP $D227 
DB2C 20 ΕΙ DD JSR $DDFi 
DB2F 20 1E CF JSR $CF1E 
DB32 20 CB E1 JSR $E1CB 
DB35 Ab D$ LDX $D5 
DB37 86 73 STX $73 
DB39 Eó 75 INC $73 
DB3B A9 00 LDA #$00 
DBSD 85 70 STA $70 
DBSF 85 71 STA $71 
DB41 AS Dó LDA $Dé 
DB43 38 SEC 

DB44 EN OE SBC #$0E 
DB4é 85 72 STA $72 
DB48 20 51 DF JSR $DF31 
DB4B A& 82 LDX $82 
DB4D AS 70 LDA $70 
DB4F 95 BS STA $B5,X 
DBS1 AS 71 LDA $71 
DB53 95 BB STA $BB,X 
DB55 A9 40 LDA #$40 
0857 20 Ab DD JSR $DDA& 
DBSA FO 03 BEQ $DB5F 
DBSC 20 AS DB JSR $DBAS 
DBSF 4C 27 D2 JMP $D227 
αλλ 1 11111. 
DBó2 A& 82 LDX $82 


Datei schlieBen 
nachste Sekundàradresse 


Abschluß 


Datei schließen 
Sekundäradresse 
Kanalnuamer holen 

kein Kanal zugeordnet ? 


nein, dann fertig 
Kanalnuaser isolieren 


Dateityp prüfen 
Direktzugriff ? 

ja 

Rel-Datei ? 

ja 

Kanal zum Schreiben öffnen 
keine Datei zua Schreiben ? 
letzten Block schreiben 
Eintrag im Directory und Block schreiben 
BAM schreiben 

Kanal schließen 


Puffernuaaer holen, Block schreiben 
Puffer wechseln 


letzten Side-Sektor holen 
Side-Sektor-Nuamer 


minus 14 für Zeiger 


Blockzahl der Datei berechnen 
Kanalnummer 


Recordnummer lo 
Recordnummer hi 

Bit 6 gesetzt ? 

nein 

in Directory eintragen 


Kanal schließen 


letzten Block schreiben 
Kanalnuaaer 
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aaa. Block lesen, Puffer belegen 


DC46 A? 01 LDA #$01 

DC48 20 E2 Di JSR $D1E2 Kanal und Puffer zum Lesen suchen 
DC4B 29 B6 DC JSR $DCBé Zeiger setzen 

DC4E AD 4A 02 LDA $024A Dateityp 

DCS1 48 PHA nerken 

DC52 04 ASL A 

DC53 09 7F ORA $7F Drivenunner 

Dan 95 EC STA $EC,X 

DC57 20 9B DO JSR $D09B Block in Puffer lesen 
DCSA Ab 82 LDX $82 Kanalnunaer 

DCSC AS 80 LDA $80 Track 

DCSE DO 05 BNE 40665 Folgetrack ? 

D An AS 81 LDA $81 Sektor 

DC42 9D 44 02 STA $0244,X als Endezeiger 

DC45 68 PLA Dateityp 

Déb C9 04 CMP #$04 Rel-Datei ? 

DC58 DO SF BNE $DCA9 nein 

DC&A A4 83 LDY $83 Sekundäradresse 

DCAC B9 2B 02 LDA $022B,Y Kanalnumaer 

DCAF 09 40 ORA #$40 

DC71 99 2B 02 STA $022B,Y Flag fiir READ und WRITE setzen 
DC74 AD 58 02 LDA $0258 Record) ange 

DC77 95 C7 STA $C7,X 

DC79 20 8E D2 JSR $D28E Puffer für Side Sektor suchen 
DC7C 10 03 BPL $DC81 gefunden ? 

DC7E 4C OF D2 JMP $D20F 70, 'no channel’ 

DC81 Ab 82 LDX $82 Kanalnuamer 

DCB3 95 CD STA $CD,X 

DC85 AC 59 02 LDY $0259 

DC88 84 80 STY $80 Track für 5ide Sektor 
DC8A AC SA 02 LDY $025ñ 

pC8D 84 Bi STY $81 Sektor für Side Sektor 
DC8F 20 D3 Dó JSR $D6D3 Paramater an Disk-Controller übergeben 
DC92 20 73 DE JSR $DE73 Block lesen 

DC95 20 99 DS JSR $D599 und prüfen 

DC98 Ab 82 LDX $82 Kanalnumner 

DC9A A9 02 LDA 1402 

DC9C 95 C1 STA $C1,X leiger für Schreiben 
DC9E A9 00 LDA #$00 

DCAO 20 C8 D4 JSR $D4C8 Pufferzeiger auf Null 
DCA3 20 53 El JSR $E153 nächsten Record suchen 
DCA& AL AE DE JMP $DESE Track und Sektornumaer holen 
DCA9 20 56 Di JSR $D156 Byte aus Puffer holen 
DCAC Ab 82 LDX $82 Kanalnuamer 

DCAE 9D SE 02 STA $023E,X Byte ins Ausgaberegister 
DCB1 A9 88 LDA #$88 Flag für READ setzen 
DCB3 95 F2 STA $F2,X 

DCBS 60 RTS 

Beer Zeiger rücksetzen 

DCB& Ab 82 LDX $82 Kanalnueaer 

DCB8 BS 87 LDA $A7,X Puf fernummer 

DCBA 04 ASL A nal 2 
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DCBB AB TAY 
DCBC DN 02 LDA 
DCBE 99 99 00 STA 
DCC1 BS AE LDA 
DCC3 09 80 ORA 
DCCS 95 AE STA 
DCC7 OA ASL 
DCC8 AB TAY 
DCC9 A9 02 LDA 
DCCB 999900 STA 
DCCE A9 00 LDA 
DCDO 95 B3 STA 
DCD2 95 BB STA 
DCD4 A9 00 LDA 
DCD6 9D 44 02 STA 
DCD9 60 RTS 
ΣΣ 11211111: 
DCDA 20 A? Fi JSR 
DCDD A9 01 LDA 
DCDF 20 DF D1 JSR 
DCE2 20 DO D& JSR 
DCES 20 86 DC JSR 
DCE8 a5 82 LDX 
DCEA AD 4A 02 LDA 
DCED 48 PHA 
DCEE OA ASL 
DCEF 05 7F ORA 
DCF1 95 EC STA 
DCF3 68 PLA 
DCF4 C9 04 CMP 
DEA FO 05 BEQ 
DCF8 A9 01 LDA 
DCFA 95 F2 STA 
DCFC 60 RTS 
DCFD A4 83 LDY 
DCFF B9 2B 02 LDA 
DDO2 29 AE AND 
ῃ004 09 40 ORA 
DDO6 99 2B 02 STA 
DD09 AD 58 02 LDA 
DDOC 95 C7 STA 
DDOE 20 BE D2 JSR 
DD11 10 03 BPL 
DD13 4C OF 02 JMP 
DD16 Ab 82 LDX 
DD18 95 CD STA 
DDIA 20 C1 DE JSR 
DD1D 20 1E F1 JSR 
DD20 AS 80 LDA 
DD22 8D 59 02 STA 
DD25 AS 81 LDA 
DD27 8D SA 02 STA 
DD2A A6 82 LDX 


#$02 
$0099,Y 
$AE,X 
#$80 
$AE, Xx 

A 


#$02 
$0099,Y 
#$00 
$B5,X 
$BB,X 
#$00 
$0244,X 


$F1A9 
8501 
$DIDF 
$D6DO 
$DCB6 
$82 
50244 


A 
$7F 
$EC,X 


4104 
$DCFD 
#$01 
$F2,X 


$83 
$022B,Y 
&$3F 
#$40 
$022B,Y 
$0258 
$C7,X 
$D28E 
$DD16 
$D20F 


$82 
$CD,X 
$DEC1 
$F11E 
$80 
$0259 
$81 
40258 
$82 


Pufferzeiger lo 


Bit 7 setzen , Puffer nicht belegt 


Pufferzeiger lo 


Blockzahl 1o 
Blockzahl hi 


Endezeiger 


neuen Block anlegen 
freien Sektor in BAM suchen 


Kanal üffnen und Puffer belegen 
Parameter an Disk-Controller übergeben 
leiger rücksetzen 

Kanalnummer 

Dateityp 


Drivenumaer 
als Flag merken 


Rel-Datei ? 
ja 


WRITE-Flag setzen 


Sekundáradresse 
Kanalnummer in Tabelle 

die obersten 2 Bit lóschen 
Bit ó setzen, 

READ und WRITE Flag 
Recordlänge 

in Tabelle 

Puffer suchen und belegen 
gefunden ? 

70, ‘no channel’ 


Kanalnumaer 

Puffernummer fiir Side-Sektor 
Puffer löschen 

freien Block in BAM suchen 
Track 

tür ersten Side-Sektor 
Sektor 


für Side-Sektor 
Kanalnuamer 
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DEOS AS 81 LDA $81 
DEO7 91 94 STA ($94),Y 
DEO9 4C 05 ΕΙ JMP $E105 
BERKER EEE RR 
DEOC 20 2B DE JSR $DE2B 
DEOF B1 94 LDA ($94),Y 
DE11 85 80 STA $80 
DE13 C8 INY 

DE14 B1 94 LDA ($94) ,Y 
DE16 85 81 STA $81 
DE18 60 RTS 
1111111111: 
DE19 20 2B DE JSR $DE2B 
DE1C DN 00 LDA #$00 
DEIE 91 94 STA ($94),Y 
DE20 C8 INY 

DE21 Ab 82 LDX $82 
DE23 BS C1 LDA $C1,X 
DE25 AA TAX 

DE26 CA DEX 

DE27 BA TXA 

DE28 91 94 STA ($94) ,Y 
DE2A 60 RTS 
EXEEXERERERERERRREXREEROEREXERERER REA 
DE2B 20 93 ΡΕ JSR $DF93 
DE2E OA ASL A 

DE2F AA TAX 

DE A0 B5 9A LDA $9A,X 
DE32 85 95 STA $95 
DES4 AY 00 LDA #$00 
DES6 85 94 STA $94 
DESB A0 00 LDY 4300 
DESA 60 RTS 
EEE EEE ES 
DESB 20 EB DO JSR $DOEB 
DESE 20 93 DF JSR $DF93 
DE41 85 F9 STA $F9 
DE43 08 ASL A 

DE44 AB TAY 

DE45 B? 06 00 LDA $0004,Y 
DE48 85 80 STA $80 
DE4A B9 07 00 LDA $0007,Y 
DE4D 83 81 STA $81 
DEAF 60 RTS 

ΕΣΑΚΕ 22 22 2 7 ΣΕ 7 7 7 27 2 7 EES 
DESO A? 90 LDA #$90 
DES2 8D 4D 02 STA $024D 
DESS DO 28 BNE $DE7F 
DES7 A9 80 LDA #$80 
DES9 8D 4D 02 STA $024D 
DESC DO 21 BNE $DE7F 


Sektornumaer 
in Puffer 
Rel-Flag setzen 


Folgetarck und Sektornummer holen 


Pufferzeiger setzen 
Folgetracknumaer 


und Sektornummer holen 


Folgetrack bei letztem Block 
Pufferzeiger setzen 

null 

als Tracknummer 


Kanalnuamer 
Zeiger in Block 


minus 1 
als Zeiger in Block 


auf Null 
holen 


Pufferzeiger 
Puffernuamer 
mal 2 


Pufferzeiger hi 


Pufferzeiger lo 


Track und Sektor holen 
Kanalnuamer holen 
Puffernumaer holen 
merken 

mal 2 


Track 


und Sektor vom Disk-Controller holen 


Befehlskode fiir Schreiben 


Befehlskode fiir Lesen 
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DESE A9 90 LDA #$90 
DESO 8D 4D 02 STA $024D 
DE&3 DO 26 BNE $DE8B 
DEG? A9 80 LDA $$80 
DE67 8D 4D 02 STA $024D 
DEGA DO 1F BNE $DEBB 
DEAC DH 90 LDA #$90 
DEAE 8D 4D 02 STA $024D 
DE71 DO 02 BNE $DE75 
DE73 A9 80 LDA 4480 
DE7S 8D 4D 02 STA $024D 
DE78 Ab 82 LDX $82 
DE7A B5 CD LDA $CD,X 
DE7C AA TAX 

DE7D 10 13 BPL $DE92 
DE7F 20 DO D& JSR 0600 
DEB2 20 93 DF JSR $DF93 
DE85 AA TAX 

DE86 AS 7F LDA $7F 
DE88 9D SB 02 STA $025B,X 
DE8B 20 15 Ei JSR $E115 
DEBE 20 93 DF JSR $DF93 
DE91 AA TAX 

DE92 AC 06 D5 JMP $D506 
*XXEXEXXXXxEXEEKEEXEE&EXEXXXXXEXEXEIITE 
DES A9 00 LDA #$00 
DE97 20 C8 D4 JSR $D4C8 
DEA 20 37 Di JSR $D137 
DED 85 80 STA $80 
DE9F 20 57 Di JSR $D137 
DEA2 85 81 STA $81 
DEA4 60 RTS 
HERHEEEHEEAHERE EER ERERELER EERE 
DEAS 48 PHA 

DEAG A? 00 LDA #$00 
DEAS 85 éF STA $6F 
DEAA 85 71 STA $71 
DEAC B9 EO ΕΕ LDA $FEEO,Y 
DEAF 85 70 STA $70 
DEBI BD EO FE LDA $FEEO,X 
DEBA 85 72 STA $72 
DEB6 68 PLA 

ΡΕΒ7 AB TAY 

DEBS 88 DEY 

DEB9 Bi Gr LDA ($5F),Y 
DEBB 91 71 STA ($71),Y 
DEBD 88 DEY 

DEBE 10 F9 BPL $DEB9 ` 
DECO 60 RTS 


ELLE EELER EE EK EA EA A 


Befehlskode für Schreiben 


Befehlskode für Lesen 


Befehlskode für Schreiben 


Befehlskode für Lesen 


Kanalnumaer 
Puffernummer Side-Sektor 


Puffer zugeordnet ? 
Header fiir Disk-Controller generieren 
Puffernummer holen 


Drivenuamer 


Puffernumaer 
Puffernummer holen 


Block schreiben 

Folgetrack und Sektor aus Puffer holen 
Pufferzeiger auf Null 

Byte holen 

als Track aerken 


Byte holen 
als Sektor 


Pufferinhalte kopieren 


Pufferadresse Y, Hi 


Pufferadresse X, Hi 


Inhalt Puffer Y 
nach Puffer X kopieren 


Puffer Y löschen 
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DF77 2C CF FE BIT $FECF 
DF7A 40 RTS 

DF7B AS D5 LDA $D5 
DF7D C9 06 CMP 8806 
DF7F BO OA BCS $DF8B 
DF81 OA ASL A 
DF82 A8 TAY 

DF83 AI oi LDA $$04 
DF85 85 94 STA $94 
DF87 B1 94 LDA ($94),Y 
DF89 DO 04 BNE $DF8F 
DFB 20 DO FE BIT $FEDO 
DFBE 60 RTS 

DFBF 2C CE FE BIT $FECE 
DF92 οὐ RTS 

LE 2 & 2 2 X 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 X 2 2 2 2 2 2 2° 
DF93 As 82 LDX $82 
DF95 B5 A7 LDA $A7,X 
DF97 10 02 BPL $DF9B 
DF99 B5 AE LDA $AE,X 
DF9B 29 BF AND #$BF 
DF9D 60 RTS 

DF9E Ab 82 LDX $82 
DFAO BE 57 02 STX $0257 
DFAS BS A7 LDA $A7,X 
DFAS 10 09 BPL $DFBO 
DFA7 ΘᾺ TXA 

DFAS 18 CLC 

DFA9 69 07 ADC 4$07 
DFAB 8D 57 02 STA $0257 
DFAE BS AE LDA $AE,X 
DFBO 85 70 STA $70 
DFB2 29 1F AND #$1F 
DFB4 24 70 RIT $70 
DFBG 60 RTS 

DFB7 Aé 82 LDX $82 
DFB9 BS 47 LDA $A7,X 
DFBB 30 02 BMI $DFBF 
DFBD B5 AE LDA $AE,X 
DFBF C9 FF CMP #$FF 
DFC1 60 RTS 

DFC2 Ab 82 LDX $82 
DFC4 09 80 ORA #$80 
DECK ` B4 47 LDY $A7,X 
DFCB 10 03 BPL $DFCD 
DFCA 95 47 STA $A7,X 
DFCC 60 RTS 

DFCD 95 AE STA $AE,X 
DFCF 40 RTS 


N-Bit setzen 


Side-Sektornuaaer 
ὁ oder größer ? 
ja 


Tracknumaer 
bereits angelegt ? 
N- und V-Bit setzen 


V-Bit setzen 


Puffernuamer holen 

Kanalnuaner 

Puffernuaaer 

belegt ? 

Puffernummer aus zweiter Tabelle 
V-Bit lóschen 


Kanalnuaner 

nerken 
Puffernuamer holen 
Puffer belegt ? 


Nummer ua sieben erhöhen 
und aerken 
Puffernumaer aus Tabelle 2 


die obersten 3 Bit löschen 


Kanalnumaer 

Puffernunner 

Puffer frei ? 

Puffernuaaer aus Tabelle 2 
frei ? 
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EE CEET EE 11111. 


DF Du 
DFD2 
DFDS 
DFD7 
DFDA 
DFDC 
DFDE 
DFEO 
DFE2 
DFE4 
ΡΕΕό 
DEER 
DFEA 
DFED 
DFEF 
DFF1 
DFF3 
DFF& 
DFF8 
DFFA 
DFFD 
DFFF 
E001 
E003 
E006 
E009 
EOOA 
EOOC 
EOOE 
E011 
E013 
E014 
E016 
E018 
E018 
EO1D 
E020 
E022 
E023 
E027 
E029 


E0284 
EO2D 
EOZF 
E031 
E033 


E034 
E035 
E037 
E039 


XX4EXXX EXE XX REX EXEXEXEEREXXEERXEEXXERX 


EOSC 


20 


20 
9D DD 


A& DD 


E8 D4 


3C EO 


C8 D4 


9D DD 
04 E3 


Fé D4 


97 DD 
2F Di 


44 02 


35 EO 


82 
C1 
bE ΕΙ 


D3 Di 


LDA 
JSR 
LDA 
JSR 
BNE 
LDX 
INC 
BNE 
INC 
LDX 
LDA 
BEQ 
JSR 
LDX 
CMP 
BCC 
JSR 
LDX 
LDA 
JSR 
LDA 
STA 
LDA 
JSR 
JSR 
PHA 
BCC 
LDA 
JSR 
BNE 
PLA 
CMP 
BER 
LDA 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
RTS 


JSR 
LDX 
LDA 
STA 
RTS 


PLA 
LDX 
STA 
JMP 


JSR 


#$20 
$DD9D 
#$80 
$DDA& 
$E01D 
$82 
$B5,X 
$DFE4 
$BB,X 
$82 
$C1,X 
$E018 
$D4E8 
$82 
$C1,X 
ΕΌΕΕό 
$E03C 
$82 
$C1,X 
$D4C8 
($99,X) 
$85 
#$20 
$DD9D 
$E304 


$E034 
1400 

$D4F6 
$E034 


8502 
$EO2A 
#$80 
$DD97 
$D12F 
$99,X 
$0244,Y 
#$0D 
$85 


$E035 
$82 
8800 
$C1,X 


$82 
$C1,X 
$EL5E 


$D1D3 


náchsten Record in Rel-Datei holen 
Bit 5 löschen 


Bit 7 testen 

gesetzt ? 
Kanalnuemer 
Recordnuaaer erhöhen 


Recordnusaer hi 

Kanalnuamer 

Schreibzeiger 

null ? 

Pufferzeiger setzen 

Kanalnumser 

Pufferzeiger kleiner Schreibzeiger ? 
ja 

Block schreiben, nächsten Block lesen 
Kanalnugger 

Schreibzeiger 

Pufferzeiger gleich Schreibzeiger setzen 
Byte aus Puffer 

in Ausgaberegister holen 


Bit 5 löschen 

Recordlänge zu Schreibzeiger addieren 
und aerken 

noch nicht ia nächsten Block ? 


Tracknumaer holen 
Block vorhanden ? 
Zeiger 

gleich 2 

ja 


Bit 7 setzen 

Byte aus Puffer holen 
Pufferzeiger 

als Endezeiger 

CR 

in Ausgaberegister 


Kanalnunser 


Schreibzeiger auf null 


Kanalnummer 
Schreibzeiger setzen 


Block schreiben und nachsten Block lesen 
Drivenuamer holen 
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E11D 95 Α7 STA 
E11F 60 RTS 
BEER 11111111 
E120 A9 80 LDA 
E122 20 A& DD JSR 
E129 DO 37 BNE 
E127 20 2F Di JSR 
E128 BS 99 LDA 
Ei2C D? 44 02 CMP 
Ei2F FO 22 BEQ 
E131 Fó 99 INC 
E133 DO 06 BNE 
E135 20 3C EO JSR 
E138 20 2F Di JSR 
E13B AI 99 LDA 
E13D 99 3E 02 STA 
E140 A? 89 LDA 
E142 99 F2 00 STA 
E145 BS 99 LDA 
E147 D9 44 02 CMP 
Ei4A FO οἱ BEQ 
E14C 60 RTS 
E14D Ad 8l LDA 
E14F 99 F2 00 STA 
E152 60 RTS 
E153 20 DO DF JSR 
E156 20 2F Di JSR 
E159 AS 85 LDA 
€15B 4C 3D Ei JMP 
EiSE Ab 82 LDX 
E160 Α7 OD LDA 
E162 9D σε 02 STA 
E105 9981 LDA 
E167 95 F2 STA 
E1569 AX 50 LDA 
E16B 20 C8 Ci JSR 
ELGE Ab 82 LDX 
E170 B3 C1 LDA 
E172 85 87 STA 
E174 Cé 87 DEC 
E176 C9 02 CMP 
E178 DO 04 BNE 
E17A AY FF LDA 
E17C 85 87 STA 
E17E BS C7 LDA 
E180 85 88 STA 
E182 20 EB D4 JSR 
E1835 Ab 82 LDX 
E187 CS 87 CMP 
E189 90 19 BCC 
E18B FO 17 BEQ 


$A7,X 


#$80 
$DDA6 
$EISE 
$D12F 
499,1 
$0244,Y 
$E153 
$99,X 
$E13B 
$E03C 
$D12F 
($99,X) 
$023E,Y 
4$89 
$00F2,Y 
$99,X 
$0244,Y 
$E14D 


#$81 
$00F2,Y 


$DFDO 
$D12F 
$85 

ΦΕΙ 50 


$82 
8100 
$023E , X 
#$81 
$F2,1 
#$50 
$C1C8 


$82 
$C1,X 
$87 
$87 
#502 
$E17E 
#$FF 
$87 
$C7,X 
$88 
$D4EB 
$82 
$87 
$E1A4 
$E1A4 


in Tabelle schreiben 


Byte aus Rel-Datei holen 


Bit 7 testen 

gesetzt ? 

Byte aus Puffer holen 

Pufferzeiger 

ait Endezeiger vergleichen 

gleich ? 

Pufferzeiger erhöhen 

ungleich null ? 

Block schreiben, nächsten Block lesen 
Byte aus Puffer holen 


ins Ausgaberegister 


READ und WRITE Flag setzen 
Pufferzeiger 

mit Endezeiger vergleichen 
gleich ? 


Flag für Ende setzen 


nächsten Record suchen 
Puffernummer und Kanalnummer holen 
Datenbyte 

ins Ausgaberegister 


Kanalnuaaer 

ER 

ins Ausgaberegister 
Flag für Ende setzen 
90, ‘record not present’ 
Kanalnunaer 
Schreibzeiger 

merken 

gleich 2 ? 

nein 

Recordlänge 
Pufferzeiger setzen 
Kanalnuaner 


Pufferzeiger größer als Schreibzeiger ? 


nein 
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E18D 20 1E CF JSR 
E190 20 B2 El JSR 
E193 90 08 BCC 
E195 Ab 82 LDX 
E197 9D 44 02 STA 
ΕΙΠΑ 4C 1E CF JMP 
E19D 20 1E CF JSR 
EiAO A49 FF LDA 
E1A2 85 87 STA 
Ε1β4 20 B2 Ei JSR 
EIA7 BO 03 BCS 
E1A9 20 EB D4 JSR 
EIAC Ab 82 LDX 
ΕΙΑΕ 9D 44 02 STA 
E1B1 60 RTS 
E1B2 20 2B DE JSR 
E1BS5 A4 87 LDY 
E1B7 B1 94 LDA 
E1B9 DO OD BNE 
E1BB 88 DEY 
E1BC CO 02 CPY 
ΕΙΒΕ 90 04 BCC 
EICO Có 88 DEC 
E162 DO F3 BNE 
E1C4 Có 88 DEC 
E1C6 18 CLC 
εἰς; 60 RTS 
E1C8 98 TYA 
E1C9 38 SEC 
EicA 60 RTS 
Ιλ λλλ1 1111111111 1111111111: 
EICB 20 D2 DE JSR 
EiCE 85 DS STA 
EiDO — A9 04 LDA 
EiD2 85 94 STA 
EIDA AO OA LDY 
EIDA DO 04 BNE 
E1D8 88 DEY 
EiD9 88 DEY 
ΕΙΡΑ 30 26 BMI 
EiDC Bi 94 LDA 
EiDE FO FB BEQ 
ΕΙΕΟ 98 TYA 
ΕΙΕΙ 4A LSR 
EIE2 C5 DS CMP 
E1E4 FO 09 BEQ 
E1E6 85 DS STA 
EIER A4 82 LDX 
EIEA BS CD iDA 
EIEC 20 1B DF JSR 
EIEF AO 00 LDY 


$CF1E 
$E1B2 
$E19D 
$82 
$0244, 
$CF1E 


$CF1E 
#$FF 
$87 
$E1B2 
$ELAC 
$D4E8 
$82 
$0244,X 


$DE2B 
$87 
($94) ,Y 
$E1C8 


#$02 
$E1C4 
$88 
$E1B7 
$88 


$DED2 
$D5 
4504 
$94 
8504 
$E1DC 


$E202 
($94) ,Y 
$E1D8 


A 
$D5 
$E1EF 
405 
$82 
$CD,X 
$DF1B 
#$00 


Puffer wechseln 


Kanal nuaaer 
Puffer wechseln 


Puffer wechseln 


Pufferzeiger setzen 
Kanalnumaer 
Endezeiger 


Pufferzeiger auf null 


Byte aus Puffer 
ungleich null ? 


letzten Side-Sektor holen 
Nuamer des Side-Sektors holen 
merken 


Zeiger auf Side-Sektoren 


Tracknummer der vorhergehende Blocks 
noch nicht angelegt ? 


durch 2 ergibt Nunaaer 

gleich Nuamer des aktuellen Blocks ? 
ja 

sonst als Nummer aerken 

Kanalnumaer 

Puffernumaer 

Block lesen 
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E2D3 AO 00 LDY #$00 
E2D5 Bi 89 LDA ($89) ,Y 
E2D7 CS 80 CMP $80 
E2D9 FO 01 BEQ $E2DC 
E2DB 60 RTS 

E2DC C8 INY 

E2DD B1 89 LDA ($89),Y 
E2DF CS 81 CMP $81 
E2E1 60 RTS 
αλλ ΣΣ 1111111. 
E2E2 20 2B DE JSR $DE2B 
E2ES AO 02 LDY #$02 
E2E7 A9 00 LDA #$00 
E2E9 91 94 STA ($94) ,Y 
E2EB C8 INY 

E2EC DO FB BNE $E2E9 
E2EE 20 04 E3 JSR $E304 
E2F1 95 C1 STA $Cl,X 
E2F3 AB TAY 

E2F4 A9 FF LDA &$FF 
E2F6 91 94 STA ($94),Y 
Ε2Ε8 20 04 E3 JSR $E304 
E2FB 90 F4 BCC $E2F1 
E2FD DO 04 BNE $E303 
E2FF A9 00 LDA 1400 
E301 95 Ci STA $C1,X 
E303 60 RTS 

Lu 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 2 2 2 2 2 2; 
E304 Ab 82 LDX $82 
E306 BS C1 LDA $C1,X 
E308 38 SEC 

E309 FO OD BEQ $E318 
ESOB 18 CLC 

ESOC 75 C7 ADC $C7,X 
ESOE 90 OB BCC $ESIB 
E310 DO 06 BNE 4Ε518 
E312 A9 02 LDA #$02 
E314 2C CC FE BIT $FECC 
E317 60 RTS 

E318 69 O1 ADC #$01 
ESIA 38 SEC 

E31B 60 RTS 
ERERERELERERHERERELEREREEEEE SE 
ESIC 20 DS DI JSR $D1D3 
ESIF 20 CB Ei JSR $EICB 
E322 20 9C E2 JSR $E29C 
E325 20 7B CF JSR $CF7B 
E328 AS Dé LDA $Dé 
E32A 85 87 STA $87 
E32C AS DS LDA $D5 
Ε52Ε 85 86 STA $86 
E330 DH 00 LDA #$00 


Tracknuamer 
vergleichen 


Sektornumaer 
vergleichen 


Datenblock in Records unterteilen 
Pufferzeiger setzen 


Puffer löschen 


Zeiger auf nächsten Record setzen 


$FF als erstes Zeichen des Records 
Zeiger auf nächsten Record setzen 
noch komplett in diesem Block ? 
Block voll ? 


Schreibzeiger auf Null 

Zeiger auf nächsten Record setzen 
Kanalnumaer 

Schreibzeiger 

gleich null ? 

Recordlange addieren 


kleiner als 254 ? 
gleich 256 ? 


zwei addieren 


Side-Sektoren erweitern 


Drivenuamer holen 
letzten Side-Sektor holen 


Side-Sektor Nummer 
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E332 
E334 
E336 
E338 
ESSB 
ESSE 
E340 
E342 
E343 
E344 
E345 
E347 
E349 
E34B 
ESAD 
ESAF 
E351 
E353 
E359 
E357 
E358 
ESSA 
ESSD 
ESSF 
E361 
E363 
E365 
E368 
ES6A 
ES6B 
E36D 
ES6F 
E371 
E372 
E374 
E376 
E378 
E37A 
E37C 
ES7E 
E380 
E381 
E384 
E386 
E388 
Ε584 
E38B 
E38D 
E38F 
E392 
E394 
E396 
E399 
E39B 
ES9D 
ES9F 


DE 


ει 


ΡΕ 


02 


D4 


STA 
LDA 
STA 
JSR 
JSR 
LDY 
LDX 
DEX 
TXA 
CLC 
ADC 
BCC 
INC 
INC 
BNE 
INC 
LDA 
STA 
LDA 
CLC 
ADC 
JSR 
LDA 
CMP 
BCC 
LDA 
JSR 
LDA 
SEC 
SBC 
BCS 
SBC 
CLC 
STA 
LDA 
SBC 
STA 
LDX 
STX 
STX 
TAX 
JSR 
LDA 
BNE 
LDX 
DEX 
BNE 
INC 
CMP 
BCC 
BNE 
LDA 
CMP 
BCC 
LDA 
JSR 


$88 
#500 
$D4 
$CEOE 
$EFAD 
$82 
$C7,Y 


$D7 
$E355 
$D6 
$D6 
$E355 
$D5 
#$10 
$Dó 
$87 


#$02 
$DEE9 
$D5 
8506 
$E368 
#$52 
$C1C8 
$D6 


$87 
$E372 
#$0F 


$72 
$D5 
$86 
$73 
#$00 
$70 
$71 


$DF51 
$71 
$E38F 
$70 


$ESBF 
$88 
$0273 
$E39D 
$E363 
$0272 
$70 
$E353 
«$01 
$D4F6 


Side-Sektor Nummer und Zeiger berechnen 
Zahl der freien Blöcke 

Kanalnuamer 

Recordlange 


plus Zeiger in Datenblock 


Zeiger auf Ende um zwei erhöhen (Track/Sektor) 
kein übertrag ? 
Side-Sektor Nummer erhöhen 


Zeiger auf 16 setzen 


Pufferzeiger für Side-Sektor setzen 
Side-Sektor Nummer 


kleiner als 6 ? 


32, 'file too large’ 
Endezeiger 


minus letzter Endezeiger 

minus 16 

Side-Sektor Nummer 

minus letzte Side-Sektor Nummer 


merken 


Summe für Brechnung löschen 


Blockzahl der Rel-Datei berechnen 


Blockzahl der Rel-Datei 
größer als freie Blocks auf Diskette ? 
92, ‘file too large’ 


92, ‘file too large’ 


Byte aus Puffer holen 
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E4BA 
E4BC 
E48E 
E490 
E491 
E493 
E495 
E497 
E499 
E494 
E49C 
E49D 
E49F 
E441 
E443 
E486 
E449 
E4AC 
E4AE 
E4BO 
E4B1 
E4B4 
E4B6 
E4B8 
E4B9 
E4BC 
E4BE 
E4CO 
E4C3 
EACS 
E4C7 
E4C9 
E4CA 
FALL 
FALE 


E4D1 
E4D4 
E4D6 
E4D9 
E4DB 
E4DE 
E4EO 
E4E2 
E4E4 
E4E4 
E4E8 
E4E9 
E4EB 
E4ED 
E4F0 
E4F3 
E4F5 
E4F7 
ΕΔΕΟ 


D4 
DE 
DS 


DF 


02 


D4 


E4 


DF 


DF 


D4 


DE 
DS 


CF 


LDA 
STA 
STA 
INY 
LDA 
STA 
STA 
LDY 
TYA 
STA 
INY 
LDA 
STA 
LDA 
JSR 
JSR 
JSR 
LDX 
LDA 
PHA 
JSR 
LDX 
STA 
PLA 
LDX 
STA 
LDA 
JSR 
LDY 
LDA 
STA 
INY 
LDA 
STA 
JMP 


JSR 
LDX 
JSR 
LDA 
JSR 
DEC 
DEC 
LDY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
JSR 
LDY 
CPY 
BCS 
JMP 


$80 
$87 
($94) ,Y 


$81 

$88 
($94) ,Y 
#$00 


($94) ,Y 


#$11 
($94) ,Y 
#810 
$D4C8 
$DE50 
$D599 
$82 
$CD,X 


$DF9E 
$82 
$CD,X 


$0257 
$A7,X 
#500 
$D4C8 
#$00 
$80 
($94) ,Y 


$81 
($94) ,Y 
$EADE 


$DF93 
$82 
$DF1B 
4500 
$D4C8 
584 

584 

$89 

$87 
($94) ,Y 


$88 
($94),Y 
$DESE 
$0599 
$84 
#$03 
$E4D1 
$CF1E 


Track 
in Puffer 
Sektor 


in Puffer 


Null in Puffer 


17 

Anzahl der Bytes im Block 

16 

Pufferzeiger auf 16 

Block schreiber. 

und prüfen 

Kanalnummer 

Puffernuamer des Side-Sektors 


Puffernumaer holen 
Kanalnunaer 
in Tabelle schreiben 


Kanalnumaer + 7 
in Tabelle 


Pufferzeiger auf null 


Track 
in Puffer 


Sektor 
in Puffer 


Puffernummer holen 
Kanalnumaer 
Block lesen 


Pufferzeiger auf Null 
Zähler für Side-Sektor Blocks 


Tracknunmaer 
in Puffer 


Sektornummer 

in Puffer 

Block schreiben 

und prüfen 

Zähler für Side-Sektor Blocks 


größer oder gleich 3 ? 
Puffer wechseln 
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HELHKEREELAEHEREERE EHLERS EELS Tabelle der Fehlermeldungen 


E4FC 00 00 

E4FD AO 4F CB ' oK’ 

E500 20 21 22 23 24 27 Fehlernuaaern der ‘read error’ 
E506 D2 45 41 44 'Read' 

ESOA 89 Zeiger auf 'error' 

ESOB 52 92 

ESOC 83 Zeiger auf ‘file’ 

ES0D 20 54 4F 4F 20 AC 41 52 47 C5 ' too largE* 

E517 50 50 

E518 8B 06 Zeiger auf ‘record ' und 'not 
E51ñ 20 50 52 45 53 45 4E D4 ' presenT' 

E322 51 51 

Ε525 CF 54 45 52 46 4C AE 57 20 ‘Overflow in’ 

ES2E BB Zeiger auf 'record' 

ES2F 25 28 Fehlernummern der ‘write error’ 
E531 BA 89 Zeiger auf ‘write’ und ' error’ 
E533 26 26 

E534 BA Zeiger auf ‘write’ 

E535 20 50 52 ΔΕ 54 45 43 54 20 4F CE ° protect oN’ 

E540 29 29 

E541 88 Zeiger auf ‘disk’ 

ES42 20 49 85 ' id’ 

E545 85 Zeiger auf ' mismatch’ 

E546 30 31 32 33 34 Fehlernummern für “syntax error’ 
ESAB D3 59 AE 54 41 58 'Syntax' 

E551 89 leiger auf ' error' 

E552 60 60 

E553 BA 03 84 Zeiger auf ‘write’, ‘file’ und ‘open’ 
E554 63 63 

E557 83 Zeiger auf ‘file’ 

E558 20 45 58 49 53 54 D3 ' existS’ 

ESSF 64 64 

E5460 83 Zeiger auf ‘file’ 

ES61 20 54 59 50 45 ' type’ 

E566 85 Zeiger auf 'mismatch' 

E357 65 65 

E568 CE 4F 20 42 4C 4F 43 CB "No blocK' 

E570 66 67 Fehlernummern für ‘illegal track or sector’ 
E572 C9 4C 4C 45 47 41 4C 20 "Illegal 

ES7A 54 52 41 43 4B 20 4F 52 ‘track or’ 

E582 20 53 45 43 54 AE D2 ' sectoR' 

E589 61 61 

ESBA 83 06 84 Zeiger auf 'file', 'not' und 'open' 
ES8D 39 62 Fehlernuamern für ‘file not found’ 
E590 83 06 87 Zeiger auf ‘file’, ‘not’ und ‘found’ 
E593 01 01 

E594 83 Zeiger auf ‘file’ 

E594 53 20 53 43 52 41 54 43 48 45 C4 “s scratcheD’ 

Ε59Ε 70 70 

ESAO CE 4F 20 43 48 41 4E AE 45 CC ‘No channel’ 

ESAA 71 71 

ESAB C4 49 52 ‘Dir’ 

ESAE 89 Zeiger auf ‘error’ 

ESAF 72 72 

ESBO 88 Zeiger auf ‘disk’ 
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EbAb CA DEX 
E6A7 4C 9F Εό JMP 4Ε69Ε 
E4AA D8 CLD 


BERKER EEE  BCD-Zahl in zwei Bytes zerlegen 
E6AB AA TAX 


EösAC 4A LSR A 

E6AD 4A LSR A Hi-Nibble nach unten verschieben 
E6AE 4A LSR A 

E6AF 4A LSR A 

E6BO 20 B4 Eb JSR SE4B4 nach ASCII wandeln 

E46BS BA TXA 

E46B4 29 OF AND #$0F oberste 4 Bit löschen 

E6B4 09 30 ORA #$30 ‘0° addieren 

E6BB 91 AS STA ($A5),Y in Puffer schreiben 

ΕΘΒΑ c8 INY Pufferzeiger erhöhen 

E6BB 60 RTS 

DEE "ok" in Puffer schreiben 

E&BC 20 23 C1 JSR $C123 Fehlerflags löschen 

ESBF A9 00 LDA #$00 Fehlernuaaer 0 

EA AO 00 LDY #$00 

E6C3 84 80 STY $80 Track O 

EACS 84 81 STY $81 Sektor 0 
BERRRERERREREREREXEAREAERARRSESSA Fehlermeldung in Puffer (Nummer im Akku) 
E6C7 AO 00 LDY #$00 Pufferzeiger 

E6C9 A2 DS LDX #$D5 

EACB 86 AS STX $AS Zeiger $A5/$A6 auf $2D5 

E46CD A2 02 LDX #$02 

FACE 86 Ab STX $46 

E5D1 20 AB Eó JSR $E6AB Fehlernuamer nach ASCII und in Puffer 
E6D4 A9 20 LDA $$2C "ul Komma 

E4D46 91 AS STA ($A5),Y in Puffer schreiben 

E4608 C8 INY Pufferzeiger erhöhen 

E6D9 AD DS 02 LDA $02D5 erste Ziffer des Diskettenstatus 
E4DC 8D 43 02 STA $0243 ins Ausgaberegister 

E6DF BA TXA Fehlernummer in Akku 

E6EO 20 06 E7 JSR $E706 Fehlermeldung in Puffer 

E6ES A9 2C LDA #$2C α΄ Komaa 

E6ES 91 AS STA ($AS) ,Y in Puffer schreiben 

E6E7 C8 INY und Pufferzeiger erhóhen 

E6EB AS 80 LDA $80 Tracknumaer 

EGEA 20 9B E& JSR $E69B nach ASCII und in Puffer 

EGED A9 2C LDA 44250 ',. Komma 

ΕόΕΕ 91 A5 STA ($A5),Y in Puffer schreiben 

E6F1 C8 INY Pufferzeiger erhóhen 

E6F2 AS 81 LDA $81 Sektor 

E6F4 20 9B Eó JSR $E69B nach ASCII wandeln und in Puffer 
E6F7 88 DEY 

E46F8 98 TYA 

EGF9 18 CLC 

E6FA 69 DS ADC #$D5 

EFC 8D 49 02 STA $0249 Endezeiger 

ΕΦΕΕ Eé AS INC $AS 

E701 DN 88 LDA #$8B READ-Flag setzen 
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E703 85 F7 STA $F7 
E705 60 RTS 


BEE EEE Text der Fehlermeldung in Puffer schreiben 


E706 AA TAX Fehlercode nach X 

E707 AS 86 LDA $86 

E709 48 PHA Zeiger $86/$87 retten 

E70A AS 87 LDA $87 

E70C 48 PHA 

E70D A9 FC LDA #$FC 

E70F 85 86 STA $86 Zeiger $86/$87 auf SE4FC 

E711 R9 EA LDA #$E4 Beginn der Fehleraeldungen 

E713 85 87 STA $87 

E715 BA ΤΧΑ Fehlernuaner in Akku 

E716 A2 00 LDX $$00 

E718 Ci 86 CMP ($86,X) mit Fehlernummer in Tabelle vergleichen 
E71A FO 21 BEQ $E73D 

E71C 48 PHA 

E71D 20 75 E7 JSR $E775 Bit 7 ins Carry und löschen 

E720 90 05 BCC $E727 nicht gesetzt ? 

E722 20 75 E7 JSR $E775 Bit 7 ins Carry 

E725 90 FB BCC $E722 warten auf Zeichen mit gesetztea Bit 7 
E727 AS 87 LDA $87 

E729 C9 Eó CMP #$E4 

E72B 90 08 BCC $E735 $E60A, auf Ende der Tabelle prüfen 
E72D DO OA BNE $E739 

E72F A9 OA LDA #$0A 

E731 CS 86 CMP $86 

E733 90 04 BCC $E739 

E735 68 PLA 

E736 4C 18 E7 JMP $E718 nein, weiteraachen 

E739 68 PLA 

E73A AC 4D E7 JMP $E74D fertig 

E73D 20 67 E7 JSR $E767 ein Zeichen holen, Bit 7 ins Carry 
E740 90 FB BCC $E73D warten auf Zeichen mit Bit 7 gesetzt 
E742 20 54 E7 JSR $E754 und in Puffer schreiben 

E745 20 67 E7 JSR $E767 nächstes Zeichen holen 

E748 90 F8 BCC $E742 warten auf Zeichen mit gesetzea Bit 7 
E740 20 54 E7 JSR $E754 Zeichen in Puffer 

E74D 6B PLA 

E74E 85 87 STA $87 

E750 68 PLA Zeiger $86/$87 zurückholen 

Ε75ι 85 86 STA 986 

E753 60 RTS 

BEREITETE HERE Zeichen holen und in Puffer 

E754 C9 20 CMP #$20 ' ' Leerzeichen 

E754 BO OB BCS $E763 größer, dann in Puffer schreiben 
E758 AA TAX Kode aerken 

E759 A9 20 LDA #$20 Leerzeichen e 

E75B 91 AS STA ($AS),Y in Puffer schreiben 

E75D C8 INY Pufferzeiger erhöhen 

E7SE 8A TXA Kode in Akku 

E7SF 20 06 E7 JSR $E706 zugehürigen Text ausgeben 

E762 60 RTS 
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E7C2 
E7C5 
E7C6 
E7C9 
E7CC 
E7CE 
E7D1 
E7D3 
E7D5 
E7D8 
E7DA 
E7DC 
E7DF 
E7E1 
E7E4 
E7E7 
E7E9 
E7EC 
E7EE 
E7FO 
E7F2 
E7F3 
E7F5 
E7Fó 
Ε7Ε8 
E7FA 
E7FD 
E7FF 
E802 
E805 
E807 
E809 
EBOC 
ΕΘΟΕ 
ΕΘΟΕ 
E811 
E813 
E815 
E817 
EB19 
E81B 
ΕΘΙΕ 
E820 
E822 
E824 
E827 
E829 
E82C 
EB2E 
E830 
E831 
E833 
E834 
E836 
E839 
E83C 


C1 


02 
02 


02 


D4 


EB 


EB 
E8 


E8 


CA 


DE 


Eó 


00 
CA 


JSR 
PLA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
STA 
JSR 
STA 
JSR 
JSR 
STA 
JSR 
LDA 
BEQ 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
JSR 
STA 
JSR 
JSR 
LDY 
STA 
JSR 
LDA 
CLC 
ADC 
STA 
BCC 
INC 
DEC 
BNE 
JSR 
LDA 
CMP 
BEQ 
JSR 
LDA 
JSR 
LDA 
BNE 
PLA 
STA 
PLA 
STA 
JMP 
JSR 
LDA 


$C1C8 


$0278 
$0280 
$80 
$0285 
$81 
8505 
40477 
500 
$87 
$E839 
$88 
$E84B 
$EB39 
$89 
$EB4B 
$86 
$E7FA 
$88 


$89 


#$00 
$84 
$E839 
$84 
$E84B 
$E839 
rop 
($88) ,Y 
$E84B 
$88 


#$01 
$88 
$E817 
$89 
584 
5802 
455455 
985 
$87 
$EB2C 
$DESE 
#550 
$E645 
$F8 
$E7DB 


$89 


$88 
($0088) 
55455 
$F8 


39, 'file not found' 
Zahl der Dateinamen zurückholen 
Track 


und Sektor 
Dateityp 'USR' 
Puffer belegen, ersten Block lesen 


Prüfsumme löschen 

Byte aus Datei holen 

als Startadresse lo merken 
Prüfsumme bilden 

Byte aus Datei holen 

als Startadresse hi 
Prüfsumme bilden 


Programmstartadresse merken 


Byte aus Datei holen 
als Zähler merken 
Prüfsumme bilden 
Byte aus Datei holen 


als Programmbytes abspeichern 
Prüfsumme bilden 


Zeiger $88/$89 erhöhen 


Zähler erniedrigen 


nächstes Byte holen 

Datenbyte 

gleich Prüfsumme ? 

ja 

Parameter an Disk-Controller übergeben 


30, ‘record not present’ 

Ende ? 

nein, nächster Datenblock 
Programastartadresse zurückholen 
und Programm ausführen 


Byte aus Datei holen 
Ende ? 
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E8SE DO 08 BNE 
EB40 20 3E DE JSR 
E843 A9 51 LDA 
E845 20 45 E& JSR 
EB48 AS 85 LDA 
ΕΘ4Α 40 RTS 
EEHHEEEEREERERERESEREREE EER EES 
E84B 18 CLC 
EB4C 65 87 ADC 
E84E 69 00 ADC 
E850 85 87 STA 
E852 60 RTS 
αλλ ΑΣ 111111 1111 
E853 AD Οἱ 18 LDA 
E856 DN Οἱ LDA 
E858 85 7C STA 
EBSA 60 RTS 
ΑΣ 1111121111. 
E8SB 78 SEI 
EBSC AI 00 LDA 
EBSE 85 7C 5TA 
E860 85 79 STA 
E862 85 7A STA 
ERAA A2 45 LDX 
E866 94 TXS 
E867 AX 80 LDA 
E869 85 ΕΒ STA 
E86B 85 7D STA 
E86D 20 B7 E9 JSR 
E870 20 AS E? JSR 
€873 AD 00 18 LDA 
E876 09 10 ORA 
E878 8D 00 18 STA 
E87B AD 00 18 LDA 
E87E 10 37 BPL 
E880 29 04 AND 
E882 DO F7 BNE 
E884 20 C9 EI JSR 
E887 C9 SF C MP 
E889 DO 06 BNE 
E88B AX 00 LDA 
E8BD 85 79 STA 
ES8F FO 71 BE@ 
E891 C9 SF CMP 
E893 DO 06 BNE 
E895 AX 00 LDA 
E897 85 7A STA 
Ε899 FO 67 BER 
€898 CS 78 CMP 
E89D DO OA BNE 
E89F A9 οἱ LDA 
ΕΒΑΙ 85 7A STA 
EBA3 AI 00 LDA 


$E848 
$DESE 
8551 
$E645 
$85 


$87 
8500 
$87 


$1801 
#$01 
$7C 


#$00 
$7C 
$79 
$70 
#$45 


8580 
$F8 
$7D 
$E9B7 
$EIAS 
$1800 
#$10 
$1800 
$1800 
$E8D7 
8504 
$E87B 
$E9C9 
855Ε 
$E891 
8$00 
$79 
$E902 
8$5F 
$E89B 
#$00 
$78 
$E902 
$78 
$E8AI 
8501 
$70 
#$00 


nein 
Parameter an Disk-Controller übergeben 


51, ‘overflow in record’ 
Datenbyte 


Prüfsumse bilden 


IRG-Routine für seriellen Bus 
Port A lesen, IRG-Flag löschen 


Flag für 'ATN empfangen' setzen 


Bedienung des seriellen Bus 


Flag für "DIN eapfangen’ löschen 
Flag für LISTEN löschen 
Flag für TALK löschen 


Stackpointer initialisieren 


Endeflag löschen 
EQI-Flag löschen 
CLOCK OUT lo 

DATA OUT, Bit ‘0’, hi 


Datenleitungen auf Eingabe schalten 
IEC-Port lesen 

EOI 2 

CLOCK IN 2 

nein 

Byte vom Bus holen 

Unlisten ? 

nein 


Flag für LISTEN rücksetzen 


Untalk ? 
nein 


Flag für TALK rücksetzen 


TALK-Adresse ? 
nein 


Flag für TALK setzen 
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EBAS 85 79 STA $79 
E847 FO 29 BEQ $EBD2 
EBA? CS 77 CMP $77 
EBAB DO 0A BNE $E8B7 
EBAD A9? Οἱ LDA #$01 
EBAF 85 79 STA $79 
E8B1 A9 00 LDA #$00 
EBB3 85 7A STA $78 
EBBS FO 1B BEQ $EBD2 
E8B7 AA TAX 

EBBB 29 60 AND #$60 
EBBA C9 40 CMP #$60 
E8BC DO SF BNE $E8FD 
EBBE ΒΑ ΤΧΑ 

EBBF 85 84 STA $84 
EBC1 29 OF AND $$0F 
EBC3 85 83 STA $83 
EBCS AS 84 LDA $84 
EBC7 29 F0 AND #$F0 
EBC9 C9 EO CMP #$E0 
EBCB DO 35 BNE $E902 
EBCD 58 CLI 

E8CE 20 CO Dñ JSR $DACO 
EBD1 78 SEI 

E8D2 2C 00 18 BIT $1800 
E8D5 30 AD BMI $E884 
E8D7 AY 00 LDA #$00 
EBD9 85 7D STA $7D 
EBDB AD 00 18 LDA $1800 
E8DE 29 EF AND #$EF 
EBEO BD 00 18 STA $1800 
EBES AS 79 LDA $79 
EBES FO 06 BER $EBED 
E8E7 20 2E EA JSR $EA2E 
EBEA AC E7 EB JMP $EBE7 
EBED AS 7A LDA $7A 
ESEF FO 09 BEQ $E8FA 
E8F1 20 9C E? JSR $E99C 
20 ΑΕ ER JSR $EIAE 

E8F7 20 09 EI JSR $E909 
EBFA AL 4E ΕΑ JMP SEA4E 
EBFD β9 10 LDA #$10 
E8FF 8D 00 18 STA $1800 
E902 2C 00 18 BIT $1800 
E905 10 DO BPL $E8D7 
E907 30 F9 BMI $E902 
EZ SE SS ST SE 7 7 7 7 7 7 7 7 2 2 22 25 
E909 78 SEI 

EIOA 20 EB DO JSR $DOEB 
E90D BO 06 BCS $E915 
E90F Ab 82 LDX $82 
E911 BS F2 LDA $F2,X 
E9135 30 01 BMI $E916 


Flag für LISTEN rücksetzen 


LISTEN-Adresse ? 
nein 


Flag für LISTEN setzen 


Flag für TALK rücksetzen 


Bit 5 und 6 gesetzt ? 
nein 


Byte ist Sekundäradresse 


Kanalnuaner 


CLOSE ? 


CLOSE-Routine 


EOI setzen 
IEC-Port 
Datenleitungen auf Ausgabe schalten 


LISTEN aktiv ? 
nein 

Daten empfangen 
zur Warteschleife 


TALK aktiv ? 
nein 
DATA OUT, Bit '1', lo 


CLOCK OUT hi 


Daten senden 
zur Warteschleife 


weder TALK noch LISTEN, Byte ignorieren 
Datenleitungen auf Eingabe schalten 
Handshake abwarten 

Daten senden 

Kanal zum Lesen öffnen 

Kanal aktiv ? 

Kanalnumaer 


READ-Flag gesetzt ? 
ja 
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E8F4 


E915 60 RTS 


E914 20 59 EA JSR $EAS9 auf EOI prüfen 

E919 20 CO E9 JSR ΕΡΓΟ IEC-Port lesen 

E91C 29 01 AND #$01 Datenbit isolieren 

E91E 08 PHP und merken 

E91F 20 B7 E9 JSR $E9B7 CLOCK OUT lo 

E922 28 PLP 

E923 FO 12 BEQ $E937 

E925 20 59 EA JSR $EA39 auf EOI prüfen 

E928 20 CO E9 JSR $EICO IEC-Port lesen 

E92B 29 01 AND #$01 Datenbit isolieren 

E92D DO Fé BNE $E925 

E92F A& 82 LDX $82 Kanalnuamer 

E931 BS F2 LDA $F2,X 

E933 29 08 AND #$08 

E935 DO 14 BNE $E94B 

E937 20 59 EA JSR $EAS9 auf EOI prüfen 

EISA 20 CO E9 JSR $E9CO IEC-Port lesen 

E93D 29 O1 AND #$01 Datenbit isolieren 

EISF DO Eé BNE $E937 

E941 20 59 EA JSR $EAS9 auf EOI prüfen 

E944 20 CO E9 JSR $E9CO IEC-Port lesen 

E947 29 01 AND #$0i Datenbit isolieren 

E949 FO Fé BEQ 4Ε941 

E94B 20 AE E9 JSR $E9AE CLOCK OUT hi 

E94E 20 59 EA JSR $EA59 auf EOI prüfen 

E951 20 CO E9 JSR $E9CO IEC-Port lesen 

E954 29 01 AND #$01 Datenbit isolieren 

E956 DO F3 BNE $E94B 

E958 AI op LDA #$08 Zähler auf 8 Bits für serielle übertragung 
EISA B5 98 STA $98 

EISC 20 CO EQ JSR $E9CO IEC-Port lesen 

EISF 29 01 AND #$01 Datenbit isolieren 

E961 DO 36 BNE $E999 

E963 A& 82 LDX $82 

E965 BD 3E 02 LDA $023E,X 

E968 6A ROR A unterstes Bit ins Carry 
E969 9D 3E 02 STA $023E,X 

ENGL BO 05 BCS $E973 Bit gesetzt 

EIGE 20 AS E9 JSR $EIAS DATA OUT, Bit ‘0’ ausgeben 
E971 DO 03 BNE $E976 unbedingter Sprung 

E973 20 9C E9 JSR $E99C DATA OUT, Bit '1' ausgeben 
E976 20 B7 E9 JSR $E9?B7 CLOCK QUT setzen 

E979 AS 23 LDA $23 

E97B DO 03 BNE 4Ε980 

E97D 20 F3 FE JSR $FEF3 Verzögerung für seriellen Bus 
E980 20 FB FE JSR $FEFB DATA OUT und CLOCK OUT setzen 
E983 C6 98 DEC $98 schon alle Bits ausgegeben ? 
E985 DO D5 BNE $E9SC nein 

E987 20 59 EA JSR $EAS9 auf EOI prüfen 

ΕΘΒΑ 20 CO E9 JSR $E9CO IEC-Port lesen 

E98D 29 01 AND #$01 Datenbit isolieren 

E98F FO Fb BER $E987 

E991 58 CLI 

E992 20 AA DS JSR 40544 nachstes Datenbyte holen 
E995 78 SEI 
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E996 AC OF E? JMP 4Ε90Ε 
E999 AC 4E EA JMP $EA4E 
ΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΙΣΣ; 
E99C AD 0018 LDA $1800 
E99F 29 FD AND #$FD 
ΕΦΑΙ 8D 00 18 STA $1800 
Ε944 — 50 RTS 
ΧΣΣΣΣΣΣΣΣΣΣΣΙΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣ; 
E9A5 AD 00 18 LDA $1800 
E9A8 09 02 ORA #802 
ΕΦΑΑ BD 00 18 STA $1800 
'E9AD 60 RTS 
YtVKEXEYXX4XXETEERETESETEREKTEETTTE 
ESAE AD 00 18 LDA $1800 
E9B1 09 08 ORA #$08 
E9B3 BD 00 18 STA $1800 
E9B5 60 RTS 
XX*XXXtXkkxkkxXxEXXtXxExxxkExccxttest 
E9B7 AD 00 18 LDA $1800 
ESBA 29 F7 AND #$F7 
ESBC 8D 00 18 STA $1800 
ESBF 40 RTS 
ΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΙΣΣΣΣΣΣΣΣΣΣΣΣΣ, 
EICO AD 00 18 LDA $1800 
E9C3 CD 00 18 CMP $1800 
E9C6 DO ΕΒ BNE $E9CO 
EICB ὁ0 RTS 

TRESS 2 2 2 2 & 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ; 
E9C9 A9 08 LDA #$08 
ESCB 85 98 STA $98 

E9CD 20 59 EA JSR $EA59 
E9D0 20 CO E9 JSR $E9CO 
E9D3 29 04 AND #$04 
E9D5 DO Fó BNE $E9CD 
E9D7 20 9C E9 JSR $E99C 
E9DA A? oi LDA #$01 
E9DC 8D 05 18 STA $1805 
E9DF 20 59 EA JSR $EA59 
E9E2 AD OD 18 LDA $180D 
ESES 29 40 AND #$40 
ESE7 DO 09 BNE $E9F2 
E9E9 20 CO E9 JSR $E9CO 
E9EC 29 04 AND 8804 
E9EE FO EF BEQ $E9DF 
E9FO DO 19 BNE $EAOB 
E9F2 20 A5 E9 JSR $E945 
ESF5 A2 OA LDX #$0A 
E9F7 CA DEX 


und ausgeben 
zur Warteschleife 
DATA OUT lo 
Bit '1' ausgeben 
DATA QUT hi 


Bit ‘0° ausgeben 


CLOCK QUT hi 


Bit 3 setzen 


CLOCK QUT lo 


Bit 3 löschen 


IEC-Port lesen 
Port lesen 
konstanten Wert abwarten 


Bitzähler serielle Ausgabe 


auf EOI prüfen 
IEC-Port lesen 
CLOCK IN ? 

nein, warten 

DATA OUT, Bit ‘1’ 


Timer setzen 
auf EOI prüfen 


Timer abgelaufen ? 
ja, EOI 

IEC-Port lesen 
CLOCK IN ? 

nein, warten 


DATA OUT Bit 
10 


'0', hi 


Verzögerungsschleife, ca. 
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50 Mikrosekunden 


E9FB DO FD BNE $E9F7 
ΕΘΕΑ 20 9C E9 JSR $E99C 
E9FD 20 59 EA JSR $EAS9 
EA00 20 CO EI JSR $E9CO 
εβο 29 04 AND #$04 
EAOS FO Fé BEQ $E9FD 
EAO7 AI 00 LDA #$00 
EA09 85 F8 STA $F8 
EAOB AD 00 18 LDA $1800 
ΕΑΟΕ 49 01 EOR #$01 
EA10 4A LSR A 
EA11 29 02 AND #$02 
EA13 DO Fé BNE $EAOB 
ΕΑΙ5 EA NOP 

EI ΕΑ NOP 

ΕΑΙ7 EA NOP 

ΕΑΙΒ 65 85 ROR $85 
EAIA 20 59 EA JSR $EA59 
ΕΑΠ 20 CO E9 JSR $E9CO 
EA20 29 04 AND #$04 
EA22 FO Fé BEQ ΦΕΑΙΑ 
EA24 Ch 98 DEC $98 
EA26 DO E3 BNE $EAOB 
EA28 20 AS Ε9 JSR $E9AS 
EA2B AS 85 LDA $85 
EA2D 60 RTS 
KERN 
EA2E 78 SEI 

EA2F 20 07 D1 JSR $D107 
EAS2 BO 05 BCS $ER39 
GR B5 F2 LDA $F2,X 
ΕΑ5ό 6A ROR A 
EA37 BO OB BCS $EA44 
EA39 AS 84 LDA $84 
EASB 29 FO AND #$FO 
EASD C9 FO CMP #$FO 
EASF FO 03 BEQ $EA44 
EA41 AC 4E EA JMP 4ΕΑ4Ε 
EA44 20 C9 EI JSR $E9C9 
EA47 58 CLI 

EA48 20 B7 CF JSR $CFB7 
EA4B AL 2E EA JMP $EA2E 
EA4E A9 00 LDA #$00 
EASO 8D 00 18 STA $1800 
EASS 4C E7 EB JMP $EBE7 
EASO AL 5B EB JMP $E85B 


YXXXEEXEEEEXRKEXEXERRXXEEXXEEXERK 


EAS? AS 7D LDA $7D 

EASB FO 06 BEQ $EA63 
EASD AD 00 18 LDA $1800 
EA&O 10 09 BPL $EA6B 


DATA QUT, Bit '1', lo 
auf ΕΟΙ prüfen 
IEC-Port lesen 

CLOCK IN ? 

nein, warten 


EO0I-Flag setzen 
IEC-Port 
Datenbit invertieren 


CLOCK IN ? 


nächstes Bit bereitstellen 
auf ΕΟΙ prüfen 

IEC-Port lesen 

CLOCK IN ? 

nein 

Bitzähler erniedrigen 

alle Bits schon ausgegeben ? 
DATA OUT Bit ‘0’, hi 
Datenbyte wieder laden 


Datenannahae vom seriellen Bus 


Kanal zum Schreiben öffnen 
Kanal nicht aktiv ? 
WRITE-Flag 


nicht gesetzt ? 
Sekundäradresse 


DPEN-Befehl ? 

Ja 

zur Warteschleife 
Datenbyte vom Bus holen 
und in Puffer schreiben 
zum Schleifenanfang 
IEC-Port rücksetzen 

zur Warteschleife 

zur Hauptschleife serieller Bus 
ΕΟΙ eapfangen ? 


ja 
IEC-Port 
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EAb2 60 RTS 

EAGS AD 00 18 LDA $1800 
EL 10 FA BPL $EA62 
Fon 4C SB ER JMP $E85B 
GU 4C DIER JMP $E8D7 
EXEXEXEEERERXEKEEREXXEETEEEREXEKRERK 
EAGE A2 00 LDX #$00 
EA70 2C .BYTE $2C 
EA71 Ab GE LDX sot 
EA73 9A TXS 

EA74 BA TSX 

EA75 A? 08 LDA #$08 
EA77 OD 00 1C ORA $1C00 
EA7A 4C EA FE JMP $FEEA 
EA7D 98 TYA 

EA7E 18 CLC 

EA7F 69 01 ADC #$01 
EA81 DO FC BNE $EA7F 
EABS 88 DEY 

EAB4 DO F8 BNE $EA7E 
EAB6 AD 00 1C LDA $1C00 
EA89 29 F7 AND #$F7 
EA8B 8D 00 iC STA $1C00 
EABE 98 ΤΥΑ 

EABF 18 CLC 

GK 69 01 ADC #$01 
EA92 DO FC BNE $EA90 
EA94 88 DEY 

EA95 DO F8 BNE $EABF 
EA?7 CA DEX 

EA98 10 DB BPL $EA75 
EA9A EO FC CPX #$FC 
EA9C DO FO BNE $EABE 
EA9E FO D4 BEQ $EA74 
RERRRRERRRERRRERRERRERERERRERRERER 
EAAO 78 SEI 

EAAI D8 CLD 

EAA2 A2 FF LDX #$FF 
EAA4 8E 05 18 STX $1803 
ΕΑΑ7 E8 INX 

EAAB AO 00 LDY #$00 
EAAA A2 00 LDX 8$00 
EAAC BA TXA 

EAAD 95 00 STA $00,X 
EAAF EB INX 

EABO DO FA BNE $EAAC 
EAB2 BA TXA 

EABS DS 00 CMP $00,X 
EABS DO B7 BNE $EA6E 
EAB7 Fó 00 INC $00,X 
EAB9 C8 INY 

EABA DO FB BNE $EAB7 


IEC-Port 
zur Hauptschleife serieller Bus 
ΕΟΙ setzen, seriellen Bus bedienen 


LED-Blinken bei Hardwaredefekten, Selbsttest 
1 mal blinken, Zeropage 


X*1 mal blinken für RAM/ROM-Fehler 


LED-Bit im Port auswählen 


LED einschalten, zurück nach $EA7D 


LED ausschalten 


Verzögerungsschleife 


Verzögerung abwarten 
LED wieder einschalten 


RESET-Routine 


Port A auf Ausgabe 


Zeropage löschen 


ist Byte gelöscht ? 
nein, dann zur Fehleranzeige (blinken) 
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EABC 
EABE 
EACO 
EAC2 
EAC4 
Gigi 
EAC7 
EAC9 
EACB 
EACD 
EACF 
EADI 
EAD2 
EAD4 
EADS 
EAD7 
EAD9 
EADA 
EADC 
EADD 
EADF 
EAE1 
EAE2 
EAE4 
EAEG 
EAEB 
EAEA 
EAEC 
EAEE 
EAFO 
EAF2 
EAF3 
EAF4 
EAF6 
EAFB 
EAF? 
EAFB 
EAFD 
EAFE 
EBOO 
EBO2 
EBO4 
EBOS 
EBOG 
ΕΒΟ7 
EB09 
EBOB 
EBOD 
EBOF 
EB11 
EB13 
EB15 
EB17 
EB18 
EB1A 
EB1B 


CMP 
BNE 
STY 
LDñ 
BNE 
INX 
BNE 
INC 
STX 
LDñ 
STA 
TAY 
LDX 
CLC 
DEC 
ADC 
INY 
BNE 
DEX 
BNE 
ADC 
TAX 
CMP 
BNE 
CPX 
BNE 
LDA 
STA 
INC 
LDX 
TYA 
CLC 
ADC 
STA 
INY 
BNE 
INC 
DEX 
BNE 
LDX 
DEC 
DEY 
TYA 
CLC 
ADC 
CMP 
BNE 
EOR 
STA 
EOR 
STA 
BNE 
TYA 
BNE 
DEX 
BNE 


$00,X 
ΦΕΑΡΕ 
$00,X 
$00,X 
$EABE 


$EAB2 
$65F 
$75 
#$00 
$75 


#$20 


$76 
($75) ,Y 


$EAD7 


$EADS 
#$00 


$76 
$EBIF 
84650 
$EAC9 
8501 
976 
$6F 
#$07 


$76 
($75) ,Y 


$EAF 2 
$76 


$EAF2 
#$07 
$76 


$76 
($75) ,Y 
$EBIF 
#$FF 
($75) ,Y 
($75) ,Y 
($75) ,Y 
ΦΕΒΙΕ 


$EBO4 


$EBO2 


Fehler 


Fehler 


32 Pages testen 


ROM Testen 


ROM-Fehler 


RAM testen, beginnend bei Page 7 


RAM-Fehler 


RAM-Fehler 


weiter testen 
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EB1D 
EBIF 


EB22 
EB24 
EB25 
EB28 
EB2A 
EB2D 
EB2F 
EB32 
EB34 
EB37 
EBSA 
EBSD 
EBSF 
EB40 
EB41 
EB42 
EB43 
EB45 
EB47 
EB49 
EB4B 
EB4D 
EBAF 
EBS1 
EBS3 
EBS4 
EBS7 
EBS9 
EBSA 
EBSB 
EBSD 
EBSF 
EBél 
EBö3 
ΕΒό4 
EB66 
EBöB 
EBó9 
EB4B 
GEI 
ΕΒόΕ 
EB70 
EB72 
EB74 
EB76 
EB79 
EB7A 
EB7C 
EB7E 
EB80 
EB82 
EB84 
EB85 


EA 


1C 
LL 
18 
18 


18 
18 


FE 


02 


BEQ 
JMP 


LDX 
TXS 
LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
AND 
ASL 
ROL 
ROL 
ROL 
ORA 
STA 
EOR 
STA 
LDX 
LDY 
LDA 
STA 
INX 
LDA 
STA 
INX 
INY 
CPY 
BNE 
LDA 
STA 
INX 
LDA 
STA 
INX 
LDA 
STA 
INX 
LDA 
STA 
LDA 
LDX 
STA 
DEX 
BPL 
LDX 
STA 
STA 
STA 
DEX 
BPL 


#$48 
$78 
#$60 
$77 
#$00 
#$00 
#$00 
$99,X 


$FEEO,Y 
$99,X 


#$05 
$EB4F 
#$00 
$99,X 


#$02 
$99,X 


8105 
«99, X 


4102 
499. 1 
#$FF 
#$12 
$022B,X 


$EB76 
#$05 

$A7,X 
$AE,X 
$CD,X 


$EB7E 


ok 
zur Fehleranzeige 
Stackpointer initialisieren 


LED ausschalten 


CA1 (ATN IN) auf positive Flanke triggern 
Interrupt durch ATN IN ermöglichen 

Port B lesen 

Bit 5 und ὁ isolieren (Gerätenunnmer) 

nach Bitposition O und I schieben 

Offset von 8 plus $40 für Talk addieren 
Gerätenumaer für TALK (senden) 


Bit & löschen, Bit 5 setzen 
Gerätenummer plus $20 für LISTEN (empfangen) 


Low-Byte der Pufferadressen 
High-Byte der Adresse aus Tabelle 
speichern 


5 Pufferspeicher 


Zeiger $A3/$A4 auf $200, Eingabepuffer 


Zeiger $A5/$A6 auf $2D5, Puffer Fehlermeldung 


Kanaltabelle ait $FF füllen ('nicht belegt’) 


Puffertabellen lóschen 


Side-Sektor Tabelle löschen 
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EB87 AI 05 LDA 
EBB9 85 AB STA 
EB8B AI 06 LDA 
EBBD 85 AC STA 
EBBF A9 FF LDA 
EB91 85 ñD STA 
EB9S 85 B4 STA 
EB95 AI 05 LDA 
EB97 8D 3B 02 STA 
EB9A AD 84 LDA 
EB9C BD 3A 02 STA 
EBIF A9 OF LDA 
EBA1 8D 56 02 STA 
EBA4 A9 Οἱ LDA 
EBA6 85 Fó STA 
EBAB A? 88 LDA 
EBAA 85 F7 STA 
EBAC A9 EO LDA 
EBAE 8D 4F 02 STA 
EBB1 A9 FF LDA 
EBBS BD 50 02 STA 
EBBA A9? Οἱ LDA 
EBBB 85 IC STA 
EBBA 85 1D STA 
EBBC 20 63 CB JSR 
EBBF 20 FACE JSR 
EBC2 2059 F2 JSR 
EBCS AX 22 LDA 
EBC7 85 65 STA 
EBC9 AQ EB LDA 
EBCB BS 66 STA 
EBCD AI OA LDA 
EBCF 85 69 STA 
EBD1 A9 05 LDA 
Εβρος 85 6A STA 
EBDS AY 75 LDA 
EBD7 20 Ci E6 JSR 
EBDA A9 1A LDA 
EBDC 8D 02 18 STA 
EBDF A9 00 LDA 
EBE 1 8D 00 18 STA 
EBE4 20 80 E7 JSR 
EBE7 58 CLI 
ERER AD 00 18 LDA 
EBEB 29 ER AND 
EBED 8D 00 18 STA 
EBFO AD 55 02 LDA 
EBFS FO 0A BER 
ΕΡΕ» A9 00 LDA 
EBF7 BD 55 02 STA 
EBFA 85 67 STA 
EBFC 20 46 Ci JSR 
SRERERSERESESSEEEEEEESESEEEEES 
EBFF 58 CLI 
ECO0 AS 7C LDA 


8505 
$AB 
AAL 
$AC 
#$FF 
$AD 
$B4 
#$05 
$023B 
#$84 
$023A 
850Ε 
$0256 
8501 
$F6 
#$88 
$F7 
#$E0 
$024F 
#$FF 
$0250 
8$01 
$1C 
$1D 
$CB63 
$CEFA 
$F 259 
4422 
$65 
#$EB 
$66 
#$0A 
$69 
#$05 
964 
8575 
$E6Ci 
#$1A 
$1802 
#$00 
$1800 
$E780 


$1800 
#$E5 
$1800 
$0255 
SEBFF 
#$00 
$0255 
$67 
$0146 


$7C 


Puffer 5 
Kanal 4 zuordnen 
Puffer 6 
Kanal 5 zuordnen 


Kanal 5 WRITE-Flag gelöscht 

Kanal 4 WRITE-Flag gesetzt 
Kanalbelegungsregister initialisieren 
Bit ‘1° gleich Kanal frei 

WRITE-Flag 

READ-Flag 

5 Puffer frei 

Pufferbelegungsregister initialisieren 
$24F/$250, 16 Bit, '1' gleich Puffer belegt 
Flags für Write Protect 

Vektor für UO setzen 


Kanaltabelle initialisieren 
Initialisierung für Disk-Controller 


Zeiger $65/$6& auf $EB22 


Schrittweite 10 bei Sektorzuweisung 
9 Leseversuche 

Einschaltaeldung bereitstellen 

73, 'cba dos v2.6 1981’ 

Bit 1, 3 und 4 auf Ausgang 
Datenrichtung Port B 

Datenregister löschen 

prüft auf Auto-Start 


seriellen Port rücksetzen 


Koamandoflag gesetzt ? 
nein 


Koamandoflag rücksetzen 
Befehl analysieren und ausführen 
Warteschleife 


ATN-Signal entdeckt ? 
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ECO2 
ECO4 
ECO? 
ECOB 
ECOA 
ECOC 
ECOE 
EC10 
EC12 
EC14 
EC17 
EC19 
ECIB 
EC1D 
ECIF 
EC22 
EC23 
EC26 
EC28 
EC29 
EC2B 
EC2D 
EC2F 
EL Ai 
EC34 
EC36 
EL Ap 
EL AN 
EL AR 
EC3C 
EC3E 
EC3F 
EC42 
EC44 
EC45 
EC47 
EC49 
EC4B 
EC4D 
EC4F 
ECS1 
ECSS 
EC5S 
EC58 
EC59 
ECSB 
ECSC 
ECSE 
EC60 
EC62 
EC64 
EC44 
EC69 
EL ép 
ECAC 
ECAD 


E8 


02 


DF 


02 


00 


1C 


D3 


D3 


BER 
JMP 
CLI 
LDñ 
STA 
LDA 
STA 
STA 
LDX 
LDA 
CMP 
BEO 
AND 
STA 
JSR 
TAX 
LDA 
AND 
TAX 
INC 
DEC 
BPL 
LDY 
LDA 
BPL 
AND 
TAX 
INC 
DEY 
BPL 
SEI 
LDA 
AND 
PHA 
LDA 
STA 
LDA 
STA 
LDA 
BEQ 
LDA 
BEQ 
JSR 
PLA 
ORA 
PHA 
INC 
LDA 
BEQ 
LDA 
BEQ 
JSR 
PLA 
ORA 
PHA 
LDA 


$EC07 
$E85B 


TT 
$72 
4800 
$5F 

$70 

$72 
$022B,X 
#$FF 
$EC2B 
TH 
$82 
$DF93 


$025B,X 
4401 


$5F X 
$72 
$EC12 
#404 
$0000,Y 
$EC3B 
#$01 


ΥΠ ΩΝ, 
$EC31 


$1C00 
#$F7 


$7F 
$86 
#500 
$7F 
Φ6Ε 
$ECSC 
$1C 
$EC58 
$D313 


#$08 


$7F 
$70 
SEL én 
$1D 
SEL AN 
$D313 


#$00 


$86 


nein 
zur IEC-Routine 


14 
als Sekundáradresse 


Job-Zähler 


Sekundäradresse 
Kanal zugeordnet ? 
nein 


Kanalnunner 
Puffernummer holen 


Drivenumser 


Jobzähler erhöhen 
Lo-Adresse 

weiter suchen 

Pufferzähler 
Disk-Controller in Aktion ? 
nein 

Drivenuamer isolieren 


Jobzahler erhöhen 


nächster Puffer 


LED-Bit löschen 


Drivenuamer 


Drive 0 

Job fiir Drive 0 ? 

nein 

Write Protect für Drive 0 ? 

nein 

alle Kanäle zu Drive 0 schließen 


LED-Bit setzen 


Drivenuaaer erhöhen 

Job für Drive 1 ? 

nein 

Write Protect für Drive 1 ? 

nein 

alle Kanäle zu Drive 1 schließen 
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EC6F 85 7F STA $7F 
EC71 68 PLA 

EC72 ΑΕ 6C 02 LDX 20260 
EC75 FO 21 BEQ $EC9B 
EC77 AD 00 1C LDA $1C00 
EC7A EO BO CPX #$80 
EC7C DO 03 BNE $EC81 
EC7E AC 8B EC JMP $ECBB 
ΕΓΒ! AE 05 18 LDX $1805 
EC84 30 12 BMI $EC98 
EC86 A2 AO LDX #$AO 
EC88 BE 05 18 STX $1805 
EC8B CE 6C 02 DEC $026C 
EC8E DO 08 BNE $EC9B 
EC90 4D 6D 02 EOR $026D 
EC93 A2 10 LDX #$10 
EC9S BE 8C 02 STX $026C 
EC98 8D 00 iC STA $1C00 
EC9B 4C FF EB JMP $EBFF 
EXEXERERSEKEREKERERERERARERRERAERERAAK 
EC9E A9 00 LDA 8500 
ECAO 85 83 STA 485 
ECA2 A? 01 LDA #$01 
ECA4 20 E2 D1 JSR $D1E2 
ECA7 A9 00 LDA #$00 
ECA9 20 C8 D4 JSR $D4C8 
ECAC Ab 82 LDX $82 
ECAE A? 00 LDA #$00 
ECBO 9D 4402 STA $0244,X 
ECB3 20 93 DF JSR $DF93 
ECB6 AA TAX 

ECB7 AS 7F LDA $7F 
ECB9 9D 5B 02 STA $025B,X 
ECBC A9 01 LDA #$01 
ECBE 20 F1 CF JSR $CFFi 
ECCI A9 04 LDA #$04 
ECC3 20 F1 CF JSR $CFF1 
ECCó A9 01 LDA #$01 
ECC8 20 F1 CF JSR $CFF1 
ECCB 20 F1 CF JSR $CFFi 
ECCE AD 72 02 LDA $0272 
ECD1 20 F1 CF JSR $CFF1 
ECD4 A9 00 LDA #$00 
ECD&6 20 F1 CF JSR $CFF1 
ECD9 20 59 ED JSR $ED59 
ECDC 20 93 DF JSR $DF93 
ECDF 04 ASL A 
ECEO AA TAX 

ECE1 D6 99 DEC $99,X 
ECES Dó 99 DEC $99,X 
ECES A? 00 LDA #$00 
ECE7 20 F1 CF JSR $CFF1 
ECEA AI Ol LDA 8401 
ECEC 20 F1 CF JSR $CFF1 
ECEF 20 F1 CF JSR $CFFi 


Drivenumser zurückholen 
Bit für LED 
Interruptzähler 

auf null ? 


Timerinterrupt löschen 


Timer setzen 
Zähler erniedrigen 
noch nicht null ? 


Zähler neu setzen 
LED ein/ausschalten 
zurück zur Warteschleife 


LOAD "$" 
Sekundäradresse Null 
Kanal und Puffer suchen 


Pufferzeiger initialisieren 
Kanalnuaaer 


Zeiger auf Ende gleich Null 
Puffernuamer holen 


Drivenuaner 

in Tabelle bringen 

1 

in Puffer schreiben 
4, Startadresse $0401 
in Puffer schreiben 

2 mal { 


als Linkadresse in Puffer schreiben 
Drivenummer 

als Zeilennummer in Puffer schreiben 
leilennuaeer hi 

in Puffer 

Directoryeintrag in Puffer 
Puffernumaer holen 


Pufferzeiger erniedrigen 


0 als Zeilenende in Puffer 


2 sal 1 als Linkadresse 
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ECF2 20 CE Có JSR $C5CE Directoryeintrag in Puffer 


ECFS 90 2C BCC $ED23 weiterer Eintrag ? 

ECF7 AD 72 02 LDA $0272 Blockzahl lo 

ECFA 20 F1 CF JSR $CFF1 in Puffer 

ECFD AD 73 02 LDA $0273 Blockzahl hi 

EDOO 20 F1 CF JSR $CFFi in Puffer 

EDOS 20 59 ED JSR $EDS9 Directoryeintrag in Puffer 
EDOS A9 00 LDA #$00 

EDO8 20 F1 CF JSR $CFF1 Null als Endekennzeichen in Puffer 
EDOB DO DD BNE $ECEA Puffer voll ? nein 

EDOD 20 93 DF JSR $DF93 Puffernummer holen 

ED10 OA ASL A 

ED11 AA TAX 

ED12 A9 00 LDA #$00 

ED14 95 99 STA $99,X Pufferzeiger auf Null 

ED14 A9 88 LDA 8588 READ-Flag setzen 

ED18 a4 82 LDY $82 Kanalnuamer 


EDIA 8D 54 02 STA $0254 
EDID 99 F2 00 STA $00F2,Y Flag für Kanal 


ED20 AS 85 LDA $85 Datenbyte 

ED22 60 RTS 

DIIIIIIIIIIITIIITITIITIIITITITIIT 

ED23 AD 72 02 LDA $0272 Blockzahl lo 

ED26 20 F1 CF JSR $CFFi in Puffer schreiben 
ED29 AD 73 02 LDA $0273 Blockzahl hi 

ED2C 20 F1 CF JSR $CFF1 in Puffer 

ED2F 20 59 ED JSR $EDS9 'Blocks free.' in Puffer 
ED32 20 93 DF JSR $DF93 Puffernumaer holen 
ED35 OA ASL A mal 2 

εὐσό ΑΑ ΤΑΧ 

ED37 Dó 99 DEC $99,X 

ED39 DA 99 DEC $99,X Pufferzeiger minus 2 
ED3B A9 00 LDA #$00 

ED3D 20 Fi CF JSR $CFFi 

ED40 20 F1 CF JSR $CFF1 dreimal Null als Prograanende 
ED43 20 F1 CF JSR $CFF1 

ED46 20 93 DF JSR $DF93 Puffernumaer holen 
ED49 04 ASL A mal 2 

ED4A AB TAY 

ED4B B9 99 00 LDA $0099,Y Pufferzeiger 

ED4E Ab 82 LDX $82 


EDSO 9D 44 02 STA $0244,X als Endekennzeichen 
EDS3 DE 44 02 DEC $0244,X 
EDS6 4C OD ED JMP $EDOD 


BR Direcectoryzeile übertragen 
EDS9 Ad 00 LDY #$00 
EDSB B9 B1 02 LDA $02B1,Y Zeichen aus Puffer 


EDSE 20 F1 CF JSR $CFFi in Ausgabepuffer schreiben 
ΕΡό6Ι CR INY 

ED62 CO 18 CPY #$1B schon 27 Zeichen ? 

ED64 DO FS BNE $EDSB 

ED66 60 RTS 


αλ λ11111111121111 1111111141 Byte aus Puffer holen 
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ED67 20 37 Di JSR $D137 Byte aus Puffer holen 


ΕΡόΑ FO 01 BEQ $ED&D Pufferzeiger null ? 

EDAC 60 RTS 

ED&D 85 85 STA $85 Datenbyte merken 

EDAF A4 82 LDY $82 Kanalnuaaer 

ED71 B9 44 02 LDA $0244,Y Endekennzeichen setzen 

ED74 FO 08 BEQ $ED7E Null (LOAD $) ? 

ED76 A9 80 LDA #$80 

ED78 99 F2 00 STA $00F2,Y READ-Flag setzen 

ED7B AS 85 LDA $85 Datenbyte 

ED7D 60 RTS 

ED7E 48 PHA 

ED7F 20 EA EC JSR $ECEA Directoryzeile im Puffer erzeugen 
ED82 68 PLA 

εὐθς 60 RTS 

Bee V-Befehl, ‘Collect’ 

ED84 20 DI C1 JSR $C1Di Eingabezeile auf Laufwerknuaser durchsuchen 
ED87 20 42 DO JSR $D042 BAM laden 

EDBA A9 40 LDA $$40 

ED8C 8D F9 02 STA $02F9 

ED8F 20 B7 EE JSR $EEB7 neue BAM ia Puffer erzeugen 

ED92 A9 00 LDA #$00 

E094 8D 92 02 STA $0292 

Eb97 20 AC C5 JSR $CSAC Directory laden, ersten Eintrag suchen 
ED9A DO 3D BNE $EDD9 gefunden ? 

ED9C A9 00 LDA #$00 

ED9E 85 81 STA $81 Sektor 0 

EDAO AD 85 FE LDA $FEBS 18 

EDA3 85 80 STA $80 Track 18 für BAM 

EDAS 20 ES ED JSR $EDES Directoryblöcke als belegt kennzeichnen 
EDAB A9 00 LDA $$00 

EDAA 8D F9 02 STA $02F9 

EDAD 20 FF EE JSR $EEFF BAM auf Diskette zurückschreiben 
EDBO AC 94 C1 JMP $C194 fertig, Diskstatus bereitstellen 
ΣΣ ΣΣ1111] 

EDB3 C8 INY 

ΕΡΒ4 Bi 94 LDA ($94),Y Track und 

EDB6 48 PHA 

EDB7 C8 INY 

EDB8 B1 94 LDA ($94),Y Sektor aerken 

EDBA 48 PHA 

EDBB AO 13 LDY #$13 leiger auf Side-Sektor-Block 

EDBD B1 94 LDA ($94),Y 

EDBF FO 0A BEO $EDCB kein Folgeblock ? 

EDC1 85 80 STA $80 Track 

EDC3 CR INY 

EDC4 B1 94 LDA ($94),Y 

EDC4 85 81 STA $81 und Sektor des ersten Side-Sektor-Blocks 
EDC8 20 ES ED JSR $EDES Side-Sektor Blöcke als belegt kennzeichnen 
EDCB 68 PLA 

EDCC 85 81 STA $81 

EDCE 68 PLA Track und Sektor zurückholen 
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EDCF 85 BO STA $80 
ΕΡΡΙ 20 ES ED JSR $EDES 
EDD4 20 04 C& JSR $C604 
EDD7 FO C3 BEQ $ED9IC 
EDD? AD 00 LDY #800 
EDDB Bi 94 LDA ($94),Y 
EDDD 30 D4 BMI $EDB3 
EDDF 20 B6 CB JSR $C8B6 
EDE2 AC D4 ED JMP $EDD4 
EXERRERERRRARERRARRRERAXERSEAEARASAA 
ΕΡΕ» 20 SF D5 JSR $DSSF 
EDEB 20 90 EF JSR $EF90 
EDEB 20 75 D4 JSR $D475 
EDEE A9 00 LDA #$00 
EDFO 20 CB D4 JSR $DACB 
EDF3 20 37 DI JSR $D137 
EDF& 85 BO STA $80 
EDF8 20 37 Di JSR $D137 
EDFB 85 81 STA $81 
EDFD AS 80 LDA $80 
EDFF DO 03 BNE $EEO4 
EEO1 AC 27 D2 JMP $D227 
EE04 20 90 EF JSR $EF90 
εεο 20 4D D4 JSR 40440 
ΕΕΟΑ 4C EE ED JMP $EDEE 
LESS 222 227 22 2 77 ΚΑ ΚΕΚ 7 27 2 2 2 EES 
EEOD 20 12 C3 JSR $C312 
EE10 AS E2 LDA $E2 
EE12 10 05 BPL $EE19 
EE14 AI 33 LDA #$33 
EE16 40 C8 Ci JMP $C1C8 
EE19 29 01 AND #$01 
EE1B 85 7F STA $7F 
EE1D 20 00 Ci JSR $C100 
EE20 AS 7F LDA $7F 
EE22 OA ASL ñ 
EE23 AA TAX 

EE24 AC 7B 02  LDY $027B 
EE27 CC 74 02 CPY $0274 
EE2A FO 1A BEQ $EE46 
EE2C B9 00 02 LDA $0200,Y 
EE2F 95 12 STA $12,X 
EE31 B9 01 02 LDA $0201,Y 
EE34 95 13 STA $13,X 
EE AA 20 07 D3 JSR 40507 
EES9 A9 Οἱ LDA #$01 
EESB 85 BO STA $80 
EESD 20 Có C8 JSR $C8C6 
EE40 20 05 FO JSR $F003 
EE43 4C 56 EE JMP 4ΕΕ56 
EE46 20 42 DO JSR $D042 
EEAN AG TF LDX $7F 


Blocke der Datei als belegt kennzeichnen 
nachsten Eintrag ia Directory lesen 
Ende des Directorys ? 


Filetyp 
Bit 7 gesetzt, File geschlossen ? 
Dateityp auf Null und BAM schreiben 


Dateiblücke in BAM belegen 
Track und Sektornunmer prüfen 
Block in BAM belegen 

nächsten Block lesen 


Pufferzeiger auf Null 
Byte aus Puffer holen 
Track 

Byte aus Puffer holen 
Sektor 

folgt weiterer Block ? 
ja 

Kanal schlieBen 


Block in BAM belegen 
náchsten Block lesen 
weiter 


N-Befehl, 'Header' 
Drivenuamer holen 
Drivenuaner 

nicht eindeutig ? 


33, ‘syntax error’ 


Drivenuaaer 

LED einschalten 
Drivenuaaer 

sal 2 


Koasaposition 

mit Ende Name vergleichen 
Foraatieren ohne ID 
erstes Zeichen der ID 
speichern 

zweites Zeichen 


alle Kanäle schließen 


Track 1 

Diskette foraatieren 
Puffer löschen 
weiter wie unten 


BAM laden 
Drivenuaaer 
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EE4B BD 01 O1 LDA $0101, 


EE4E CD DS FE CMP $FEDS 'A', Kennzeichen für 1541-Foraat 
EES1 FO 03 BEQ $EES6 ok 

ΕΕ55 4C 72 DS JMP 40572 73, ‘cba dos v2.6 1981’ 

EES6 20 B7 EE JSR $EEB7 BAM erzeugen 

EES9 AS F9 LDA $F9 Puffernumaer 

EESB AB TAY 

EESC OA ASL A 

EESD AA TAX 

EESE AD 88 FE LDA $FEBB $90, Beginn Disknaae 

EE51 95 99 STA $99,X Pufferzeiger auf Name 

EE63 AE 7A 02 LDX $0270 

ΕΕδό A9 1B LDA #$1B 27 

ΕΕόΒ 20 bE Ch JSR $C55E Filenamen in Puffer schreiben 
EEöB A0 12 LDY #$12 Position 18 

EE GD Ab 7F LDX $7F Drivenumaer 

ΕΕΔΕ AD DS FE LDA $FEDS "Div 1541-Format 

EE72 9D 01 01 STA $0101,X 

ΕΕ75 ΒΑ ΤΧΑ 

EE76 0A ASL A mal 2 

EE77 AA TAX 

EE78 BS 12 LDA $12,X ID, erstes Zeichen 

EE7A 91 94 STA ($94),Y in Puffer 

EE7C CB INY 

EE7D BS 13 LDA $13,X und zweites Zeichen 

EE7F 91 94 STA ($94),Y in Puffer 

EE81 C8 INY 

EE82 c8 INY 

EE83 AI 32 LDA #$32 "2e 

EE85 91 94 STA ($94),Y in Puffer 

EE87 c8 INY 

EEB8 AD DS FE LDA $FEDS ‘A’ 1541-Format 

EEBB 91 94 STA ($94),Y in Puffer 

EE8D AO 02 LDY $$02 

EEBF 91 6D STA ($6D),Y und an Position 2 

EE91 AD 85 FE LDA $FEBS 18 

EE94 85 80 STA $80 Tracknuamer 

EE96 20 93 EF JSR $EF93 Block als belegt kennzeichnen 
ΕΕ99 A9 οἱ LDA #$01 1 

EE9B 85 81 STA $81 Sektornuamer 

EE9D 20 93 EF JSR $EF93 Block als belegt kennzeichnen 
EEAO 20 FF EE JSR $EEFF BAM schreiben 

ΕΕΑΣ 20 05 FO JSR $F005 leiger $6D/$6E auf Puffer, Puffer lóschen 
EEAd AO 01 LDY #$01 

EEAB A9 FF LDA #$FF 

EEAA 91 éD STA ($6D),Y Folgetrack 0, $FF gleich Anzahl gültige Bytes 
EEAC 20 64 D4 JSR $D464 Block schreiben 

EEAF Cá 81 DEC $81 Sektornummer erniedrigen, 0 
EEBt 20 60 D4 JSR $D460 Block lesen 

EEB4 4C 94 C1 JMP $C194 Diskstatus bereit stellen 


ΕΕΣ ΣΕ ΣΕ ΣΕ ΣΧΕΣΗΣ ΑΦΗ ΕΕΣ ΑΡΗ BAM erzeugen 
EEB7 20 Di FO JSR ΦΕΟΡΙ 

EEBA A0 00 LDY #$00 

EEBC A9 12 LDA #$12 18 
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EEBE 91 4D STA ($6D),Y Zeiger auf Directory-Track 
EECO c8 INY 


EECI 98 TYA 1 

EEC2 91 6D STA ($6D),Y leiger auf Directory-Sektor 
EEC4 C8 INY 

EECH C8 INY 

EECA C8 INY 

EEC7 DN 00 LDA #$00 

EEC9 85 δΕ STA $6F 

EECB 85 70 STA $70 3 Bytes gleich 24 Bits für Sektoren 
EECD 85 71 STA $71 

EECF 98 TYA Byteposition 

EEDO 4A LSR A 

EEDI 4β LSR A durch 4 ergibt Tracknummer 
EED2 20 48 F2 JSR $F24B Anzahl Sektoren holen 

EEDS 91 óD STA (4460) ,Y und in BAM 

EED7 CR INY 

EEDB AA TAX 

EED9 38 SEC 

EEDA 26 OF ROL $6F 

EEDC 26 70 ROL $70 Bitmuster erzeugen 

EEDE 26 71 ROL $71 

EEEO CA DEX 

ΕΕΕΙ DO Fó BNE $EED9 

EEE3 BS éF LDA $6F,X š Bytes 

EEES 91 6D STA ($6D),Y der BAM in Puffer 

ΕΕΕ7 c8 INY 

EEEB ER INX 

EEE? EO 03 CPX #$03 

EEEB 90 Fé BCC $EEE3 

EEED CO 90 CPY #$90 schon Position 144 ? 

EEEF 90 Dé BCC $EEC7 nein, nachsten Track 

EEF 1 4C 75 DO JMP $D075 Anzahl freie Blocks berechnen 
BEREIT BAM bei Bedarf schreiben 
EEF4 20 93 DF JSR $DF93 Puffernummer holen 

EEF7 AA TAX 


EEFB BD SB 02 LDA $025B,X Befehl für Disk-Controller 
EEFB 29 01 AND #$01 


EEFD 85 7F STA $7F Drivenummer isolieren 

EEFF A4 7F LDY $7F 

EF01 B9? 51 02 LDA $0251,Y BAM-Anderungsflag gesetzt ? 
EFO4 DO 01 BNE $EF07 ja 

EFO& 60 RTS 

EF07 A9 00 LDA #$00 

EFO9 99 51 02 STA $0251,Y BAM-Anderungsflag rücksetzen 
EFOC 20 3A EF JSR $EFSA Pufferzeiger für BAM setzen 
EFOF AS 7Ε LDA $7F Drivenumaer 

EF11 OA ASL A mal 2 

EF12 48 PHA 

EF13 20 AS FO JSR $FOAS BAM-Eintrag überprüfen 

EF16 68 PLA 

EF17 18 ELC 

EF18 69 01 ADC #$01 Tracknuamer erhöhen 

EF1A 20 AS FO JSR $FOAS BAM-Eintrag überprüfen 
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EFiD AS 80 LDA $80 
EFIF 48 PHA 

EF20 A9 οἱ LDA #$01 
EF22 85 80 STA $80 
EF24 OA ASL A 
EF25 OA ASL A 
EF26 85 6D STA $6D 
EF28 20 20 F2 JSR $F220 
EF2B Eú 80 INC $80 
EF2D AS 80 LDA $80 
EF2F CD D7 FE CMP $FED7 
EF32 90 FO BCC $EF24 
EF34 68 PLA 

EF An 85 80 STA $80 


EF37 4C ΒΑ DS JMP $DSBA 


αλλ 1111111111. 
EFSA 20 OF F1 JSR $FIOF 


EFSD AA TAX 

EFSE 20 DF FO JSR $FODF 
EF41 Ab F9 LDX $F9 
EF43 BD EO FE LDA $FEEO,X 
EF46 85 6E STA $6E 
EF48 AD 00 LDA #$00 
Ε44 85 óD STA 460 
EF4C 60 RTS 


λα ERE EE EEE 
EFAD Ab 7F LDX $7F 

EFAF BD FA 02 LDA $02FA,X 
EF52 8D 72 02 STA $0272 
EFS5 BD FC 02 LDA $02FC,X 
EFS8 8D 75 02 STA $0273 
EFSB 60 RTS 


PRSEEESSSE LE SESE SESE ES EES SS κ 


EFSC 20 Fl EF JSR $EFFI 
EFSF 20 CF EF JSR $EFCF 


EF462 38 SEC 

EF63 DO 22 BNE $EF87 
EF65 Bi óD LDA ($6D),Y 
EF 47 1D E9 EF ORA $EFEI,X 
EF6A 91 6D STA ($6D),Y 
EF6C 20 88 EF JSR $EF88 
EFF ΑΦ GF LDY $5F 
EF71 18 CLC 

EF72 Bi 4D LDA ($6D),Y 
EF74 69 01 ADC #$01 
EF76 91 6D STA ($6D),Y 
EF78 AS 80 LDA $80 
EF7A CD 85 FE CMP $FEBS 
EF7D FO 3B BEQ $EFBA 
EF7F FE FA 02 INC $02FA,X 
EF82 DO 03 BNE $EF87 
EF84 FE FC 02 INC $02FC,X 
EF87 60 RTS 


Track 


Track 1 
nal 4 


überprüft BAM 
Tracknuaaer erhöhen 


und mit Maxiaalwert plus 1 = 36 vergleichen 
ok, nächster Track 


Tracknumaer zurückholen 
BAM auf Diskette schreiben 


Pufferzeiger für BAM setzen 
6 für Drive 0 holen 


Puffer belegen 
Puffernuaaer 
Pufferadresse, hi Byte 


lo Byte 
Zeiger nach $6D/$&E 


Anzahl freie Blocks für Directory holen 
Drivenuaner 
Anzahl Blocks lo 


Anzahl Blocks hi 
in Puffer für Directory 


Block als frei kennzeichnen 
Pufferzeiger setzen 
Bit für Sektor in BAM löschen 


Block bereits frei, dann fertig 
Bitauster der BAM 
Bit X setzen, Kennzeichen für frei 


Flag für BAM geändert setzen 


Anzahl der freien Blocks pro Track erhöhen 
Track 

gleich 18 ? 

dann übergehen 

Anzahl der freien Blocks der Diskette erhöhen 


Anzahl Blocks hi erhöhen 
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LL. 


EF88 Aà 7F LDX $7F 
ΕΕΘΑ AI Ol LDA #$01 
EFBC 9D 51 02 STA $0251,X 
EF8F 60 RTS 


RERERERAEARERARRREARARRERARARERERERREREAREREE 
EF90 20 ΕΙ EF JSR $EFFI 
EF93 20 CF EF JSR $EFCF 


EF96 FO 36 BEQ $EFCE 
EF98 Bi 6D LDA ($6D),Y 
EF9A SDE EF EOR $EFE9,X 
EF9D 91 6D STA ($6D),Y 
EF OF 20 88 EF JSR $EF88 
EFA2 A4 6F LDY $6F 
EFA4 Bi óD LDA ($6D),Y 
EFAG 38 SEC 

EFA7 E? oi SBC #$01 
EFA9 91 6D STA ($6D),Y 
EFAB AS 80 LDA $80 
EFAD CD 85 FE CMP $FEBS 
EFBO FO OB BEQ $EFBD 
EFB2 BD FA 02 LDA $02FA,X 
EFBS DO 03 BNE $EFBA 


EFB7 DE FC 02 DEC $02FC,X 
EFBA DE FA 02 DEC $02FA,X 
EFBD BD FC 02 LDA $02FC,X 


EFCO DO OC BNE $EFCE 
EFC2 BD FA 02 LDA $02FA,X 
EFCS C9 03 CMP #$03 
EFC7 BO 05 BCS $EFCE 
EFC9 A9 72 LDA #$72 
EFCB 20 C7 E6 JSR $E6C7 
EFCE 60 RTS 


EREEREEEEA EES ERE REE EER EEE EE 
EFCF 20 11 FO JSR $FO11 


EFD2 98 TYA 

EFDS 85 éF STA $6F 
EFDS AS 81 LDA $81 
EFD?7 4β LSR A 

EFD8 40 LSR A 

EFD9 4A LSR A 

EFDA 38 SEC 

EFDB 65 At ADC $5F 
EFDD A8 TAY 

EFDE AS 81 LDA $81 
EFEO 29 07 AND #$07 
EFE2 AA TAX 

EFES Bi 4D LDA ($6D),Y 
EFES 3D ES EF AND $EFE9,X 
EFEB 60 RTS 


ΤΙ; 
EFE9 οἱ 02 04 08 10 20 40 Bu 


Flag für 'BAM geändert‘ setzen 
Drivenuaaer 


Flag gleich eins 

Block als belegt kennzeichnen 
Pufferzeiger setzen 

Bit für Sektor in BAM löschen 
bereits belegt, dann fertig 


Bit des Blocks uakehren (löschen) 


Flag für BAM geändert setzen 


Anzahl der Blocks pro Track erniedrigen 
Track 

18 ? 

Directorytrack aussparen 

Anzahl freie Blocks lo 

Anzahl der freien Blocks erniedrigen 
Anzahl freie Blocks hi 

mehr als 255 Blocks frei ? 

freie Blocks lo 

weniger als 3 ? 

72, ‘disk full’ 

Bit für Sektor in BAM-Eintrag löschen 
sucht BAM-Feld für diesen Track 
Sektor 


durch B teilen 


Bytenuasmer in BAM-Eintrag 
Sektornuaaer 


Bitnuaaer in BAM-Eintrag 
Byte in BAM 
Bit für Sektor löschen entspricht belegt 


lweierpotenzen 
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YEEREXYXEERSEXSEREERREREREREGERERRER 


EFF1 89 FF LDA #$FF 
EFF3 2C F9 02 BIT $02F9 
Odd FO ος BEQ $F004 
EFF8 10 0A BPL $F004 
EFFA 70 08 BVS $F004 
EFFC A? 00 LDA $$00 
EFFE 8D F9 02 STA $02F9 
F001 4: ΒΑ DS JMP $D58A 
F004 60 RTS 
BRRRARRERRERERRREERERREREREREER CERE ERN 
F005 20 34 EF JSR $EFSA 
F008 AO 00 LDY #$00 
FOOA 98 TYA 

FOOB 91 4D STA (460) ,Y 
FOOD C8 INY 

FOOE DO FB BNE $FOOB 
F010 60 RTS 
ETEXRRERERERAEXXIEEXEXEXEEXEXERAE 
F011 AS AE LDA $6F 
F013 48 PHA 

F014 AS 70 LDA $70 
F016 48 PHA 

F017 Ab 7F LDX $7F 
F019 B5 FF LDA $FF,X 
FO1B FO 05 BEO $F022 
F01D a9 74 LDA $$74 
FOIF 20 48 Eb JSR $E648 
F022 20 OF F1 JSR $F10F 
F025 85 OF STA $6F 
F027 BA TXA 

F028 OA ASL A 

F029 85 70 STA $70 
FO2B AA TAX 

F02C AS 80 LDA $80 
FOZE DD 9D 02 CMP $029D,X 
F031 FO OB BEQ $FOSE 
F033 EB INX 

F034 86 70 STX $70 
F036 DD 9D 02 CMP $029D,X 
F039 FO 03 BEQ $FOSE 
FOSB 20 SB FO JSR $FOSB 
FOSE AS 70 LDA $70 
F040 Ab 7F LDX $7F 
F042 9D 9B 02 STA $029B,X 
F045 04 ASL A 

F046 0A ASL A 

F047 18 εις 

F048 69 ΑΙ ADC #$Al 
FO4A 85 4D STA $6D 
FO4C DN 02 LDA #$02 
FO4E 69 00 ADC #$00 
F050 85 6E STA $6E 
F052 AO 00 LDY 8400 
F054 68 PLA 


BAM nach Änderung schreiben 


Flag rücksetzen 
Block schreiben 


BAM-Puffer löschen 
Zeiger $6D/$6E auf BAM-Puffer 


BAM-Puffer löschen 


Drivenuamer 
Drive Null ? 


‘drive not ready’ 
Puffernuaner für BAM holen 


Track 


Drivenumaer 


mal 4 


232 


FOSS 85 70 STA 
F057 68 PLA 
FOSB 85 oF 5TA 
FOSA 40 RTS 
LEST STE ST EST ET SI ERE REE EERE EH 
FOSB Ab 6F LDX 
FOSD 20 DF FO JSR 
F060 AS 7F LDA 
F062 AA TAX 
Ε065 OA ASL 
F064 1D 9B 02 ORA 
F067 49 01 EOR 
F069 29 05 AND 
FO6B 85 70 STA 
FO&D 20 AS FO JSR 
F070 AS F9 LDA 
F072 OA ASL 
F073 AA TAX 
F074 A5 80 LDA 
F076 OR ASL 
F077 0A ASL 
F078 95 99 5TA 
F07A AS 70 LDA 
FO7C OA ASL 
FO7D OA ASL 
F07E AB TAY 
FO7F Al 99 LDA 
F081 99 ΑΙ 02 STA 
F084 A9 00 LDA 
[086 81 99 STA 
F088 Fé 99 INC 
ΕΟΒΑ CB INY 
FO8B 98 TYA 
FOBC 29 05 AND 
FOBE DO EF BNE 
F090 Ab 70 LDX 
F092 AS 80 LDA 
F094 9D 9D 02 STA 
F097 AD FI 02 LDA 
FO9A DO 03 BNE 
FO9C 4C BA DS JMP 
FO9F 09 80 ORA 
FOAL 8D F9 02 STA 
FOA4 60 RTS 
FOAS AB TAY 
FOAG B? 9D 02 LDA 
FOA9 FO 25 BEQ 
FOAB 48 PHA 
FOAC DH 00 LDA 
FORE 99902 STA 
ΕΟΒΙ AS ΕΤ LDA 
FOBS OA ASL 
FOB4 AA TAX 


$70 


$6F 


St 
$FODF 
$7F 


A 
$029B,X 
#$01 
#403 
$70 
$FOAS 
$F9 


($99,X) 
$02A1,Y 
#$00 
($99,X) 
$99,X 


#$03 
$F07F 
$70 

$80 
$029D,X 
$02F9 
$F09F 
$D58A 


#$80 
$02F9 


$029D,Y 
$F ODO 


8100 
$029D,Y 
$F9 

A 


Drivenummer 


Puffernumaer 


Track 


mal 4 
gleich Zeiger in BAM-Feld 


Null in Puffer 
Pufferzeiger erhóhen 


Track 


Block schreiben 


Puffernumar 
mal 2 
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FOBS 68 PLA 


FOB& 0A ASL A 

FOB7 OA ASL A 

FOBB 95 99 STA $99,X 

FOBA 98 ΤΥΑ 

ΕΟΒΒ OA ASL A 

FOBC 04 ASL A 

FOBD A8 TAY 

FOBE B9 Al 02 LDA $02A1,Y 

FOC! 81 99 STA ($99,X) in Puffer schreiben 
FOC3 A9 00 LDA 85800 

FOCS 99 Al 02 STA 402Α1.Υ 

FOCB F6 99 INC $99,X Pufferzeiger erhöhen 
FOCA CR INY 

FOCB 98 TYA 

FOCC 29 03 AND #$03 

FOCE DO EE BNE $FOBE 

FODO 60 RTS 

FOD1 AS 7F LDA $7F Drivenummer 
F0D3 OA ASL A 

FOD4 AA TAX 

FODS A9 00 LDA #$00 

FOD7 9D 9D 02 STA $029D,X 

FODA E8 INX 

FODB 9D 9D 02 STA $029D,X 

FODE 60 RTS 

FODF BS A7 LDA $A7,X 

ΕΟΕΙ C9 FF CMP #$FF 

ΕΟΕΣ DO 25 ΒΝΕ $F10A 

FOES BA ΤΧΑ 

FOES 48 PHA 

FOE7 20 BE D2 JSR $D28E 

FOEA AA TAX 

FOEB 10 05 BPL $FOF2 

FOED A9 70 LDA #870 

FOEF 20 CB Ci JSR $C1C8 70, 'no channel’ 
FOF2 86 F9 STX $F9 

FOF4 68 PLA 

FOFS AB TAY 

FOF& 8A TXA 

FOF7 09 80 ORA #$80 

FOF? 99 Α7 00 STA $00A7,Y 

FOFC 04 ASL A 

FOFD AA TAX 

FOFE AD 85 FE LDA $FEB85 18, Directorytrack 
F101 95 06 STA $06,X aerken 

F103 A9? 00 LDA #$00 0 

F105 95 07 STA $07,X als Sektor 
F107 4C 868 DS JMP $D586 Block schreiben 
F10A 29 OF AND $$0F 

F10C 85 F9 STA $F9 Puffernuaner 
F10E 60 RTS 
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BEE  Puffernuaner für BAM holen 


F10F A9 06 LDA #$06 

F111 Ab 7F LDX $7F Drivenuamer 

F113 DO 03 BNE $F118 

F115 18 εις 

F116 69 07 ADC #$07 gibt 13 für Drive O 

F118 60 RTS 

EXEXEXEEEXEXEXEEXEEEXEEEEXEEEEX Puffernummer für BAM nach X 
F119 20 OF F1 JSR $F10F Puffernuamer holen 

F11C AA TAX 

F11D 60 RTS 

BEE freien Block in BAM suchen und belegen 
F11E 20 AE DE JSR $DESE Track und Sektornummer holen 
F121 A9 03 LDA #$03 

F123 85 éF STA $6F Zahler 

F125 A9 01 LDA #8$01 


F127 OD F9 02 ORA $02F9 
F12A 8D F9 02 STA $02F9 


F12D AS 6Ε LDA $6F Zähler merken 

F12F 48 PHA 

F130 20 11 FO JSR $F011 BAM-Feld zu diesem Track suchen 
Fi33 68 PLA 

F134 85 ¿éF STA $6F Zähler zurückholen 

F136 Bi 6D LDA ($6D),Y Anzahl der freien Bytes des Tracks 
F138 DO 39 BNE $F173 noch Blocks frei ? 

FiSA AS 80 LDA $80 Track 

Fi3C CD 85 FE CMP $FEBS 18, Directorytrack ? 

F13F FO 19 BEQ $F15A ja, “disk full’ 

F141 90 1C BCC $F15F kleiner, dann náchst niedrigerer Track 
F143  E6 80 INC $80 Tracknummer erhöhen 

F145 A5 80 LDA $80 

F147 CD D7 FE CMP $FED7 36, höchste Tracknusaer plus eins 
F14A DO ΕΙ BNE $F12D nein, auf diesen Track weitersuchen 
F14C AE 85 FE LDX $FEBS 18, Directorytrack 

F14F CA DEX erniedrigen 

F150 86 80 STX $80 als Tracknuamer merken 

F152 A9 00 LDA $$00 

F154 85 81 STA $81 ait Sektornummer null beginnen 

F156 Có éF DEC $6F Zähler erniedrigen 

F158 DO D3 BNE $F12D noch nicht null, dann weitersuchen 
FISA A9 72 LDA #$72 

FiSC 20 CB Ci JSR $Cics 72, ‘disk full’ 

F15F Có 80 DEC $80 Tracknuamer erniedrigen 

Fi61 DO CA BNE $F12D noch nicht null, in diesea Track weitersuchen 
F163 AE 85 FE LDX $FEBS 18, Directorytrack 

Ε166ὁ ΕΒ INX erhöhen 

F157 85 80 STX $80 als Tracknuamer emerken 

F169 AY 00 LDA #$00 

F16B 85 81 STA $81 mit Sektor null beginnen 

F16D C6 6Ε DEC $6F Zähler erniedrigen 

F16F DO BC BNE $F12D noch nicht null, dann weiter suchen 
F171 FO E7 BEQ $F15ñ sonst 'disk full' 

F173 AS 81 LDA $81 Sektornummer 
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F175 18 CLC 


F176 65 69 ADC $49 plus Schrittweite (10) 

F178 BS 81 STA $81 als neue Nuamer 

F17A AS 80 LDA $80 Tracknumaer 

F17C 20 4B F2 JSR $F24B maximale Sektornumaer holen 

F17F 8D 4E 02 STA $024E 

F182 8D 4D 02 STA $024D und merken 

F185 C5 81 CMP $81 größer als gewählte Sektornummer ? 
F187 BO OC BCS $F195 ja 

F189 38 SEC sonst 

F18A AS 81 LDA $81 Sektornumaer 

F18C ED 4E 02 SBC $024E minus maximale Sektornummer 

F18F 85 81 STA $81 als neue Sektornumaer aerken 
F191 FO 02 BEQ $F195 null ? 

F193 Có 81 DEC $81 sonst Sektornummer um eins erniedriqen 
F195 20 FA Fi JSR ΦΕΙΕΑ BAM prüfen, freien Sektor suchen 
F198 FO 03 BEQ $F19D nicht gefunden ? 

FI9A 4C 90 EF JMP $EF90 Block in der BAM belegen 

F19D A9 00 LDA #$00 

F19F 85 81 STA $81 Sektor Null 

F1A1 20 FA Fi JSR $F1FA freien Sektor ab Nunner 0 suchen 
F1A4 DO F4 BNE $F19A gefunden ? 

FLAG 4C FS Fi JMP $F1F5 nein, 'dir error' 


EXXEXEXERIEREEEOEEEREREGEEREEEEEX freien Sektor suchen und belegen 
FLA9 A9 01 LDA #$01 

FiAB OD FF 02 ORA $02F9 

FIAE BD F9 02 STA $02F9 


FiBi AS 84 LDA $86 

FiBS 48 PHA 

FiB4 A9 01 LDA #$01 Trackzahler 

ΕΙΒ6 85 86 STA $86 

F1B8 AD 85 FE LDA $FEBS 18, Directorytrack 

F1BB 38 SEC 

FiBC ES 84 SBC $86 minus Zähler 

ΕΒΕ 85 80 STA $80 als Tracknuamer merken 

Fico 90 09 BCC $FiCB Ergebnis kleiner gleich Null ? 
F1C2 FO 07 BEQ $F1CB dann oberhalb Directory versuchen 
F1C4 20 11 FO JSR $F011 BAM-Feld zu diesen Track suchen 
FiC7 Bi 4D LDA ($6D),Y Anzahl der freien Blocks in diesem Track 
F1C9 DO 1B BNE $F1E6 freie Blocks vorhanden 

FiCB AD 85 FE LDA $FEBS 18, Directorytrack 

FICE 18 CLC 

FiCF 65 84 ADC $86 plus Zahler 

FiDi 85 80 STA $80 als Tracknummer merken 

F1D3 Eb 86 INC $86 Zähler erhöhen 

F1D5 CD D7 FE CMP $FED7 36, maximale Tracknummer plus eins 
F1D8 90 05 BCC $FiDF kleiner, dann ok 

FiDA A9 67 LDA #$67 

F1DC 20 45 E6 JSR $E645 67, 'illegal track or sector' 

ΕΙΡΕ 20 11 FO JSR $F011 BAM-Feld zu diesea Track suchen 
F1E2 B1 4D LDA ($6D),Y Anzahl der freien Blocks in diesem Track 
F1E4 FO D2 BED $F1B8 kein Block mehr frei ? 

F1E6 68 PLA 

F1E7 85 86 STA $86 

F1E9 A9 00 LDA #$00 
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FIER 85 81 STñ $81 
F1ED 20 FA Fi JSR $FiFA 
FIFO FO 03 BEQ $F1FS 
F1F2 4C 90 EF JMP $EF90 
FIER A9 71 LDA #$71 
F1F7 20 45 E6 JSR $E645 
ΚΕΕΕΚΕΣΕΣΕΦΕΕΣΕΣΕΧΕΕΚΕΚΕΚΕΚΕΧΕῈ 
FIFA 20 11 FO JSR $F011 
FIER 98 ΤΥΑ 

FIFE 48 PHA 

ΕΙΕΕ 20 20 Ε2 JSR $F220 
F202 AS 80 LDA $80 
F204 20 4B F2 JSR $F24B 
F207 8D 4E 02 STA $024E 
F20A 68 PLA 

F20B 85 ot STA $6F 
F20D AS 81 LDA $81 
F20F CD 4E 02 CMP $024E 
F212 BO 09 BCS $F21D 
F214 20 DS EF JSR $EFDS 
F217 DO 06 BNE $F21F 
F219 E6 81 INC $81 
F21B DO FO BNE $F20D 
F21D ñ? 00 LDA #$00 
F21F 60 RTS 
EXXXETXXEERZXEXXXXEEEXXEXEXEEEELXY 
F220 AS bFf LDA 46Ε 
F222 48 PHA 

F223 AY 00 LDA #$00 
F225 85 OF STA $6F 
F227 AC 86 FE  LDY $FE84 
F22A 88 DEY 

F22B A207 LDX #$07 
F22D Bi 6D LDA ($6D),Y 
F22F 3D EI EF AND $EFE9,X 
F232 F0 02 BEQ $F236 
F234 Eb bF INC $6F 
F236 CA DEX 

F237 10 F4 BPL $F22D 
F239 88 DEY 

F23A DO EF BNE $F22B 
F23C Bi 4D CDA ($6D),Y 
F23E CS éF CMP $6F 
F240 DO 04 BNE $F246 
F242 68 PLA 

F243 85 éF STA $6F 
F245 60 RTS 

F246 A9 71 LDA #$71 
F248 20 45 Eó JSR $E645 
αλλ 1111211111. 
F24B AE Dó FE LDX $FEDS 
F24E DD Dó FE CMP $FED6,X 


Sektor 0 

freien Sektor suchen 
nicht gefunden ? 
Block in BAM belegen 


71, 'dir error' 


freien Sektor auf aktuellem Track suchen 
BAM-Feld zu diesen Track suchen 
zeigt auf Anzahl der freien Blocks 


BAM überprüfen 

Track 

maximale Sektornuamer des Tracks holen 
merken 


leiger merken 

Sektor 

mit Maximalzahl vergleichen 
größer oder gleich ? 
Bitnumaer des Sektors holen 
Sektor frei ? 

Sektornumaer erhöhen 

und prüfen ob frei 

kein Sektor frei 


Anzahl freie Blocks in BAM überprüfen 


Zähler auf null 
4, Anzahl Bytes pro Track in der BAM 


Bit isolieren 


bei freiem Sektor Zähler erhöhen 


mit Anzahl auf Diskette vergleichen 


ungleich, dann Fehler 


71, 'dir error’ 
Anzahl Sektoren pro Track bestimmen 


4 verschiedene Werte 
Tracknunaser 


237 


F251 CA DEX 
F252 BO FA BCS 
F254 BD Di FE LDA 
F237 60 RTS 
F258 60 RTS 
αλλ 1111111111 
F259 A9 éF LDA 
F25B 8D 02 1C STA 
F25E 29 FO AND 
F260 8D 00 iC STA 
F263 AD OC 1C LDA 
F266 29 FE AND 
F268 09 OE ORA 
F26A 09 EO ORA 
F26C 8D OC 1C STA 
F26F A9 41 LDA 
F271 8D 0B 1C STA 
F274 A9 00 LDA 
F276 8D 06 1€ STA 
F279 A9 SA LDA 
F27B 8D 07 1C STA 
F27E 8D 05 IC STA 
F281 A9 7F LDA 
F283 BD OE IC STA 
F286 A9 CO LDA 
F288 DD OD IC STA 
F28B BD OE 1C STA 
F2BE AI ΕΕ LDA 
F290 85 3E STA 
F292 85 51 STA 
F294 A9 08 LDA 
F296 85 39 STA 
F298 A9 07 LDA 
F29A 85 47 STA 
F29C A? 05 LDA 
F29E 85 62 STA 
EI AQ FA LDA 
F2A2 85 63 STA 
F2A4 AY C8 LDA 
F2A6 85 64 STA 
F2AB AD 08 LDA 
F2AA 85 SE STA 
F2AC AD 08 LDA 
F2AE 85 SF STA 
LEE IST ST IST STIER EST ERE E EEE EH 
F2BO BA TSX 
F2B1 86 49 STX 
F2B3 AD 04 IC LDA 
F2B6 AD OC 1C LDA 
F2B9 09 OE ORA 
F2BB 8D OC 1C STA 
F2BE AO 05 LDY 
F2CO B9 00 00 LDA 


$F24E 
$FEDL,X 


TIT: 
$1C02 
#$F0 
$1000 
«1000 
#$FE 
#$0E 
DS 
$1COC 
#$41 
$1COB 
8500 
$1006 
853A 
$1C07 
$1C05 
#$7F 
$1C0E 
4100 
1000 
$1COE 
TI 
$3E 
$51 
#508 
$39 
8507 
447 
8105 
$52 
ASFA 
$63 
8158 
$64 
4504 
$5E 
8104 
$SF 


$49 
$1C04 
$1C0C 
8$0E 
$1COC 
#$05 
$0000, Y 


nach gróBer ? 
Anzahl der Sektoren holen 


Initialisierung für Disk Controller 
Bit 4 (Write Protect) und 7 (SYNC) Eingang 
Datenrichtungsregister Port B 


Port B, Steuerport 
PCR, Kontrollregister 


Timer 1 free running, Port A Latch enable 
Timer 1 lo Latch 


Timer 1 Hi Latch 
Timer 1 Hi 


IROs löschen 


IER, Interrupts erlauben 


Trackzáhler für Forsatierung 
8 

Konstante für Blockheader 

7 

Konstante für Datenblock 


Zeiger $62/$63 auf $FA05 
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IRQ-Routine für Disk-Controller 
Stackpointer merken 


Interruptflag vom Timer löschen 


Auftrag für Puffer Y ? 
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F2C3 
F2C5 
F2C7 
F2C9 
F2CA 


F2CD 
F2CF 
Ε2ΡΙ 
Ε205 
Ε205 


F2D8 
F2D9 
F2DB 
F2DD 
F2DF 
F2E2 
F2E4 
F2E6 


F2E9 
F2EB 
F2ED 
F2EE 
F2F0 


F2F3 
F2F4 
F2F6 


F2F9 
F2FB 
F2FD 
F2FF 
F301 
F304 
F306 
F308 
F30A 
F30C 
F30F 
F311 
F313 
F315 
F317 
F319 
FAIR 
F31D 


F320 
F322 
F324 
F326 
F328 
F32A 


F3 


F9 


F9 


F9 


F9 


F9 


F3 


F3 


F9 


BPL 
CMP 
BNE 
TYA 
JMP 


AND 
BEQ 
STY 
LDA 
JMP 


TAX 
STA 
CMP 
BEQ 
JSR 
LDA 
STA 
JMP 


LDA 
BMI 
ASL 
BPL 
JMP 


DEY 
BPL 
JMP 


LDA 
STA 
LDY 
STY 
JSR 
BMI 
DEC 
BPL 
LDY 
JSR 
LDA 
STA 
ASL 
LDA 
STA 
LDA 
STA 
JMP 


AND 
CMP 
BNE 
LDA 
BEG 
SEC 


nein 
Kode für Programa ia Puffer ausführen ? 
nein 


Programm im Puffer ausführen 


Drivenumaer isolieren 
Drive null ? 


sonst 
74, ‘drive not ready’ 


lauft Motor ? 
ja 
Laufwerksmotor einschalten 


Flag setzen 
zur Jobschleife 


Kopftransport schon programaiert ? 


zur Jobschleife 


nächsten Puffer prüfen 
zur Jobschleife 


Kopftransport programmieren 


Pufferzähler initialisieren 
Zeiger in Puffer setzen 

liegt Auftrag für Puffer vor ? 
Zähler erniedrigen 

nächsten Puffer prüfen 
Puffernuaaer 

Zeiger in Puffer setzen 
Trackdifferenz zu letztes Job 
als Záhler für Kopftransport 


Flag für Kopftransport setzen 
Tracknummer aus Puffer holen 

zur Jobschleife 

Drivenuamer isolieren 

gleich Drivenuamer des letzten Jobs ? 
nein 


letzte Tracknuaaer 
gleich null ? 
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Ε528 Fi 32 SBC ($32),Y 
F32D FO OD BEQ $F33C 
F32F 49 FF EDR #$FF 
F331 85 42 STA $42 
F333 E& 42 INC $42 
F335 AS SF LDA $3F 
F337 85 41 STA $41 
F339 AC 06 F3 JMP $F306 
F33C A2 04 LDX #$04 
F33E Bi 32 LDA ($32),Y 
F340 85 40 STA $40 
F342 DD Dé FE CMP $FED6,X 
F345 CA DEX 

F346 BO FA BCS $F342 
F346 BD Di FE LDA $FEDI,X 
F34B 85 43 STA $43 
F34D BA TXA 

F34E 0A ASL A 

FS4F 04 ASL A 

F350 OA ASL A 

F351 OA ASL A 

F352 04 ASL A 

F353 85 44 STA $44 
F355 AD 00 1C LDA $1C00 
F358 29 OF AND #$9F 
Ε554 05 44 ORA $44 
F35C 8D 00 1C STA $1C00 
F35F Ab 3D LDX $3D 
F361 AS 45 LDA $45 
F363 C9 40 CMP #$40 
F365 FO 15 BEQ $F37C 
F367 C9 60 CMP #$60 
F369 FO 03 BEQ $F36E 
F36B AC B1 F3 JMP $F3B1 
LESS SZ ST SE ST EI ET EST 7 SE E22 A 
FS6E AS SF LDA $3F 
F370 18 CLC 

F371 69 03 ADC 8405 
F373 85 31 STA $31 
F375 A9 00 LDA #$00 
F377 85 30 STA $30 
F379 6C 30 00 JMP ($0030) 
ολλ ΣΣ 11111. 
F37C A9 50 LDA #$60 
F37E 85 20 STA $20 
Ε580 AD 00 1C LDA $1C00 
F383 29 FC AND #$FC 
F385 8D 00 IC STA $1C00 
F388 A9 Α4 LDA 8444 
F38ñ 85 4A STA $4A 
F38C DN 01 LDA #$01 
F38E 85 22 STA $22 
F390 4C 69 F9 JMP $F969 


gleich der Tracknuaaer dieses Jobs ? 
ja 


Drivenunaer 

weiter prüfen 

Tracknuamer des Jobs 

merken 

mit maximaler Tracknuaaer vergleichen 
gróBer ? 


Sektorzahl pro Track holen 
und aerken 


Nummer des Spurbereichs mal 32 


gibt 0, 32, 64, 9% 


Steuerbyte für Motor generieren 


Befehlskode 

Kopf positionieren ? 

ja 

Befehlskode für Programm im Puffer ausführen ? 
ja 

Blockheader lesen 


Programa ia Puffer ausführen 
Puffernuaner 


plus 3 
gleich Adresse des Puffers 


Prograas im Puffer ausführen 


Kopf positionieren 


Flag für Kopftransport setzen 
Steppermotoren einschalten 


164 
Schrittzähler für Kopftransport 


Tracknuaner 
ok 
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ee Zeiger in Puffer initialisieren 


F393 A4 3F LDY $3F Puffernummer 

F395 B9 00 00 LDA $0000,Y Befehlskode 

F398 48 PHA aerken 

F399 10 10 BPL $F3AB 

F39B 29 78 AND #$78 Bit 0,1,2 und 7 löschen 
F39D 85 45 STA $45 

F39F 98 TYA Puffernummer 

F3A0 0A ASL A mal 2 

F3Ai 69 06 ADC 84606 plus ó 

F3A3 85 32 STA $32 gleich Zeiger auf aktuellen Puffer 
Ε545 98 ΤΥΑ Puffernunmer 

F3A& 18 CLC 

F3A7 69 03 ADC #$03 plus 3 

F3a9 85 31 STA $31 gleich Pufferadresse hi 
F3AB AO 00 LDY #$00 

F3AD 84 30 STY $30 Pufferadresse lo 

FSAF 68 PLA Befehlskode zurückholen 
F3BO 60 RTS 

Bee Blockheader lesen, ID überprüfen 
F3B1 A2 SA LDX #$5A 90 

F3B3 86 4B STX $4B Zahler 

F3B5 42 00 LDX $$00 

F3B7 A9 32 LDA #$52 82 

F3B9 85 24 STA $24 

F3BB 20 56 F5 JSR $F556 SYNC abwarten 

F3BE 50 FE BVC $F3BE Byte Ready ? 

F3CO ΒΒ ειν 

FAL) AD 01 1C LDA $1C01 Daten vom Lesekopf 

F3C4 C 24 CMP $24 

F3C6 DO SF BNE $F407 20, 'read error’ 

F3C8 50 FE BVC $F3C8 Byte Ready ? 

FSCA ΒΒ CLV 

F3CB AD 01 1C LDA $1C01 Datenbyte von Diskette (Blockheader) 
FSCE 95 25 STA $25,X 7 Bytes speichern 

F3D0 ΕΒ INX 

F3D1 EO 07 CPX #$07 

F3D3 DO F3 BNE $F3C8 weiter einlesen 

F3D5 20 97 F4 JSR $F497 

F3D8 AO 04 LDY #$04 4 Byte plus Parity 

FSDA A? 00 LDA #$00 


F3DC 99 16 00 EOR $0016,Y Prüfsumae über Header bilden 
F3DF 88 DEY 


FIEO 10 FA BPL $F3DC 

FSE2 c9 00 CMP #$00 Parity in Ordnung ? 

F3E4 DO 38 BNE $F41E 27, write error’ 

FSE& A6 SE LDX $3E Drivenummer 

F3EB AS 18 LDA $18 Tracknuaaer des Headers 
F3EA 95 22 STA $22,X als aktuelle Tracknummer übernehmen 
F3EC AS 45 LDA $45 

FIEE C9 30 CMP #$30 Kode für ‘Header übernehmen’ 
F3FO FO 1E BEQ $F410 Header übernehmen 

FSF2 AS 3E LDA $3E 

F3F4 OA ASL A 

FSFS AB TAY 
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FIF6 BI 12 00 LDA $0012,Y 

FSF9 C5 16 CMP $16 ID1 vergleichen 

FSFB DO 1E BNE $F41B 

FSFD BI 13 00 LDA $0013,Y 

F400 C5 17 CMP $17 ID2 vergleichen 

F402 DO 17 BNE $F41B ungleich, dann 29, ‘disk id mismatch’ 
F404 4C 23 F4 JMP $F423 

F407 Có 4B DEC $4B Zahler fiir Versuche erniedrigen 
F409 DO BO BNE $FSBB und nochmal probieren 
F40B A9 02 LDA #$02 ansonsten 

F40D 20 69 F9 JSR $F969 20, ‘read error’ 
range  Blockheader übernehaen 
F410 AS 16 LDA $16 191 

F412 85 12 STA $12 

F414 AS 17 LDA $17 und ID2 

F416 85 13 STA $13 übernehmen 

F418 A9 01 LDA #$01 ok 

F41ñ 2C .BYTE $2C 

F41B A9 OB LDA #$0B 29, ‘disk id mismatch’ 
F41D 2C .BYTE $2C 

F41E AI 09 LDA #$09 27, ‘write error’ 

F420 4C 69 F9 JMP $F969 AbschluB 


πλ λα λ1111 2111111111 1111111: 


F423 AQ 7Ε LDA #$7F 
F425 85 46 STA $4C 
F427 AS 19 LDA $19 
F429 18 CLC 

[424 69 02 ADC #$02 
F42C CS 43 CMP $43 
F42E 90 02 BCC $F 432 
[450 ES 43 SBC $43 
F432 85 4D STA $4D 
F434 A2 05 LDX #$05 
F436 86 3F STX $3F 
F438 A2 FF LDX #$FF 
FASA 20 93 F3 JSR $F393 Pufferzeiger fiir Disk-Controller setzen 
[450 10 44 BPL $F483 
F43F 85 44 STA $44 
F441 29 01 AND #$01 
F443 CS AE CMP $3E 
F445 DO SC BNE $F 483 
F447 AO 00 LDY #$00 
F449 Bi 32 LDA ($32),Y 
PAAR C5 40 CRP $40 
F44D DO 34 BNE $F 483 
F44F AS 45 LDA $45 Befehlskode 
F451 C9 60 CRP #$60 
F453 FO OC BEQ $F461 
F455 AO Οἱ LDY $$01 
F457 38 SEC 

F458 Bi 52 LDA ($32),Y 
F45A ES 4D SBC $4D 
F45C 10 03 BPL $F451 
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FASE 
F45F 
F451 
F463 
F465 
F456 
F458 
F46A 
F46B 
F45D 
F46F 
F471 
F473 
F475 
F477 
F478 
FATA 
F47C 
FA7E 
FATF 
F481 
F483 
F485 
F487 
F488 
F48A 


F48D 
F48F 
F492 
F494 


F497 
F499 
F49ñ 
F49C 
F49D 
F49F 
Ε4Α1 
445 
[445 
F4A7 
F4A9 
FAAC 
F4AE 
F4BO 
F4B2 
F4B4 
F4B6 
F4B8 
F4BB 
F4BD 
F4BF 
F4C1 
FAL A 
FAL A 


F9 


F3 


F4 


F7 


F7 


CLC 
ADC 
CMP 
BCS 
PHA 
LDA 
BEQ 
PLA 
CMP 
BCC 
CMP 
BCS 
STA 
LDA 
TAX 
ADC 
STA 
BNE 
PLA 
CMP 
BCC 
DEC 
BPL 
TXA 
BPL 
JMP 


STX 
JSR 
LDA 
JMP 


LDA 
PHA 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
5TA 
PLA 
STA 


$43 
$4C 
$F483 


$45 
$F47E 


#509 
$F483 
#$0C 
$F 483 
$4C 
$3F 


4403 
$31 
$F483 


#$06 
$F473 
$3F 
$FASA 


$F48D 
$F99C 


$3F 
SE ANA 
$45 
$F4CA 


$30 


$31 


#$24 
$30 
#$00 
$31 
8500 
$34 
$F7E6 
$55 
$18 
$54 
$19 
$53 
$1A 
$F7E6 
$52 
$17 
$53 
$16 


$31 


zur Jobschleife 


Puffernuaaer holen 
Befehlskode 
weiter prüfen 


Zeiger $30/$31 retten 


Zeiger $30/$31 auf $24 
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F4C4 68 PLA Zeiger $30/$31 zurückholen 
F4C7 85 30 STA $30 


F4C9 60 RTS 

FHERHLEAERELEERER REESE EERE ER ES 

F4CA C9 00 CHP #$00 Befehlskode für “Lesen” ? 
F4CC FO 03 BEQ ΦΓ4ΡΙ Ja 

FACE AL 6E FS JMP $FS6E Befehlskode weiter prifen 
F4D1 20 OA FS JSR $F508A Datenblockanfang suchen 
F4D4 50 FE BVC $F4D4 Byte Ready ? 

F4D6 B8 CLV 

F4D7 AD 01 1C LDA $1C01 Datenbyte holen 

FADA 91 30 STA ($30),Y und in Puffer schreiben 
F4DC C8 INY 256 mal 

FADD DO FS BNE $F4D4 

F4DF AO BA LDY #$BA 

F4E1 50 FE BVC $F4E1 Byte Ready ? 

F4E3 BB CLV 

F4E4 AD 01 1C LDA $1C01 Bytes lesen 


F4E7 99 00 01 STA $0100,Y nach $1BA bis $1FF 
F4EA CB INY 


FAEB DO F4 BNE $F4E1 

F4ED 20 EO F8 JSR $FBEO 

FAFO AS 38 LDA $38 

FAF2 C5 47 CMP $47 gleich 7, Beginn Datenblock ? 
F4F4 FO 05 BEQ $F4FB ja 

Ε4Γ6 89 04 LDA #$04 22, ‘read error’ 

F4F8 4C 69 F9 JMP $F969 Fehlerabschluß 

FAFB 20 E9 F5 JSR $FSE?9 Parity des Datenblock berechnen 
FAFE CS 3A CMP $3A Ubereinstimmung ? 

F500 FO 03 BEQ $F505 ja 

F502 89 05 LDA #$05 25, 'read error’ 

F504 2C BYTE $2C 

F505 A9 01 LDA #$01 ok 

F507 4C 69 F9 JMP $F969 Fehleraeldung bereitstellen 
RRRRRRRRRRRRERRRERRRAGR | Datenblockanfang suchen 
F50ñ 20 10 FS JSR $F510 Blockheader lesen 

FSOD 4C 56 F5 JMP $F556 SYNC abwarten 
EXEXERSREREREXEERSAEREXEXEETEEEEEX  Blockheader lesen 

F510 AS 3D LDA $3D Drivenumaer 

F512 OA ASL A 

F513 AA TAX 

F514 B5 12 LDA $12,X 151 

F516 85 16 STA $16 merken 

F518 BS 13 LDA $13,X 1D2 

FS1A 85 17 STA $17 nerken 

F51C AO 00 LDY #$00 

FSIE B1 32 LDA ($32),Y Track 

F520 85 18 STA $18 

F522 08 ΙΝΥ 

F523 Bi 32 LDA ($32),Y und Sektornummer aus Puffer holen 
F525 85 19 STA $19 
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F527 AG 00 LDA ##00 


F529 45 16 EOR $16 

F52B 45 17 EOR $17 Parity für Blockheader berechnen 
Ε520 45 18 EOR $18 

FS52F 45 19 EUR $19 

F531 85 1A STA $1A und merken 

F533 20 34 F? JSR $F934 

F536 A2 5A LDX #$5A 90 Versuche 

F538 20 54 F5 JSR $F556 SYNC abwarten 

FS3B A0 00 LDY $$00 

F53D 90 FE BVC $F53D Byte Ready ? 

FSSF BB CLV 

Ε540 AD 01 1C LDA $1CO01 Daten vom Blockheader lesen 
F543  D9 24 00 CMP $0024,Y mit gespeicherten Daten vergleichen 
F546 DO 06 BNE $F54E ungleich, dann nochmal versuchen 
F548 C8 INY 

F549 CO 08 CPY #$08 schon 8 Bytes gelesen ? 

FS4B DO FO BNE $F53D nein 

F54D 60 RTS 

FS4E CA DEX Zähler erniedrigen 

FS4F DO E7 BNE $F538 noch nicht null ? 

F551 A9 02 LDA #$02 

F553 4C 69 F9 JMP $F969 20, ‘read error’ 
EXXXXXXEEEERXXEXEXEEXXXEEXEEXEEXX SYNC abwarten 

F356 A9 DO LDA $$DO 208 

FSSB 8D 05 18 STA $1805 Timer starten 

FSSB A9 03 LDA 1405 Fehlerkode 

FSSD 2C 05 18 BIT $1805 

F560 10 F1 BPL $F553 Timer abgelaufen, dann 21 , ‘read error’ 
F562 25 00 IC BIT $1C00 SYNC-Signal 

Ε565 30 Fó BMI $F55D nocht nicht gefunden ? 

F567 AD 01 LC LDA $1C01 Byte lesen 

FS6A B8 CLV 

F56B AO 00 LDY #$00 

Ε5οῦ 60 RTS 

EREREXEXREREREARIEREREREREREEXEERRERRRRM 

F56E C9 10 CMP #$10 Befehlskode für ‘Schreiben’ 

F570 FO 03 BEQ $F575 ja 

F572 45 91 Fé JMP $F691 Befehlskode weiter prüfen 
Baer Datenblock auf Diskette schreiben 
F575 20 E9 F5 JSR $FSE9 Parity für Puffer berechnen 

F578 85 3A STA $3A und speichern 

FS7A AD 00 1C LDA $1C00 Port B lesen 

F57D 29 10 AND #$10 Bit für 'Write Protect' isolieren 
FS7F DO 05 BNE $F586 nicht gesetzt, ok 

F581 A9 08 LDA #$08 

F583 AL 69 F9 JMP $F969 26, ‘write protect on’ 

F586 20 8F F7 JSR $F78F 

F589 20 10 FS JSR $F510 Blockheader suchen 

FS8C A2 09 LDX $$09 

FSBE 50 FE BVC $FSBE Byte Ready ? 
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F590 B8 CLV 

F591 CA DEX 

F592 DO FA BNE $FSBE 
F594 A9 FF LDA #$FF 
F596 8D 03 1C STA $1C03 
F599 AD OC IC LDA $1COC 
F59C 29 1F AND #$1F 
F59E 09 CO ORA #$C0 
FSAO 8D OC 1C STA $1COC 
FSAS A9 FF LDA #$FF 
FSAS A2 05 LDX #$05 
FSA7 8D 01 1C STA 10501 
FSAA B8 CLV 

FSAB 90 FE BVC $FSAB 
FSAD B8 CLV 

FSAE CA DEX 

FSAF DO FA BNE $FSAB 
FSB1 AO BB LDY #$BB 
F5B3 B9 00 01 LDA $0100,Y 
FSBö6 90 FE BVC $FSB6 
FSB8 B8 CLV 

FSB9 8D 01 IC STA $1C01 
FSBC C8 INY 

FSBD DO F4 BNE $FSB3 
FSBF B1 30 LDA ($30),Y 
FSCI 90 FE BVC $F5C1 
FSCS BB CLV 

FSC4 8D 01 1C STA $1C01 
FSC7 (8 ΙΝΥ 

FSC8 DO F5 BNE $FSBF 
FSCA 30 FE BVC $F5CA 
FSCC AD OC 1C LDA $1C0C 
FOCF 09 E0 ORA #$E0 
F501 8D OC IC STA $1C0C 
F5D4 AY 00 LDA #$00 
FSD6 8D 03 IC STA $1003 
kuk 20 F2 F5 JSR $FSF2 
FSDC A4 SF LDY $3F 
FSDE B9 00 00 LDA $0000,Y 
FSE1 49 30 EOR #$30 
FOES 99 00 00 STA $0000,Y 
FSE6 AC B1 F3 JMP $FSBi 

E COERCIEXEERECRERGIEREREIEIOREIIGIORE UIGIUHG E ES 
FSE9 A? 00 LDA #$00 
FSEB AB TAY 

FSEC 91 30 EOR ($30),Y 
FSEE C8 INY 

FSEF DO FB BNE $FSEC 
FSF1 60 RTS 

FSF2 A9 00 LDA 4300 
FSF4 85 2Ε STA $2E 
FSF6 85 30 STA $30 
FSFB 85 4F STA $4F 
FSFA AS 31 LDA $31 


9 Bytes nach Blockheader überlesen 


Port A (Schreib/Lesekopf) auf Ausgang 


PCR auf Ausgabe umschalten 


5 mal $FF auf Diskette schreiben 


als SYNC-Zeichen 


Bytes $1BB bis $1FF auf Diskette 


Datenpuffer (256 Bytes) auf Diskette schreiben 


Byte Ready ? 


PCR wieder auf Eingabe 


Port A (Schreib/Lesekopf) auf Eingang 


Befehlskode 'Schreiben' in 'Verify' umwandeln 


Parity für Datenpuffer berechnen 
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FSFC 
FSFE 
F600 
F602 
F604 
F606 
F608 
ΕΟΘΑ 
Εοοῦ 
F60F 
Félt 
F613 
F615 
F617 
F618 
FOIA 
F61C 
F61D 
F61F 
F621 
F622 
F624 
F627 
F629 
F62B 
F62D 
F&ZE 
F630 
F632 
F433 
F635 
F637 
F439 
F63ñ 
F63C 
F63E 
CH 
F641 
F643 
F645 
F647 
F648 
FO4A 
F64C 
F64D 
Fó4F 
F652 
F654 
F656 
F658 
F659 
F65B 
F65D 
F6SE 
F660 
F662 


F7 


F7 


F7 


STA 
LDA 
STA 
STA 
LDA 
STA 
STA 
JSR 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
STY 
JSR 
LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
BEQ 
LDA 
STA 
INY 
LDA 
STA 
INY 
STY 
BNE 
LDA 
STA 
INY 
LDA 
STA 
INY 
STY 
JSR 
LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 


$4E 
4401 
$31 
$2F 
#$BB 
$34 
$36 
ΦΕ7Εό 
$52 
$38 
$36 
$53 
($25) ,Y 


$54 
($26) ,Y 


$55 
(42Ε) ,Y 


$36 
ἑΕ7Ε6 
$36 

$52 
($2E) ,Y 


$53 
($2E) ,Y 


$F643 
$54 
($2E) Y 


$55 
($25) ,Y 


$36 
$F 624 
$54 
($30) ,Y 


$55 
($30) ,Y 


$36 
ΦΕ7Εό 
$36 

$52 
($30) ,Y 


$53 
($30),Y 


$54 
($30) ,Y 
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F663 AS 55 LDA $55 


F665 91 30 STA ($30),Y 

F667 C8 INY 

F668 84 36 STY $36 

EI CO BB CPY #$BB 

Εδός 90 Ei BCC $F64F 

UI A9 45 LDA #$45 

F670 85 2E STA $2E 

F672 AS 31 LDA $31 

F674 85 2F STA $2F 

F674 A0 BA LDY #$BA 

F478 Bi 30 LDA ($30),Y 

CH 91 2E STA ($2Eb),Y 

F67C 88 DEY 

F67D DO F9 BNE $F578 

FO7F Bi 30 LDA (450) ,Y 

F6Bl 91 2E STA ($2E),Y 

F683 A2 BB LDX #$BB 

F685 BD 00 οἱ LDA $0100,X 

F688 91 30 STA ($30),Y 

F658A C8 INY 

F6BB EB INX 

F68C DO F7 BNE $F685 

ΕόΒΕ 86 50 STX $50 

F690 60 RTS 

ΧΧΧ ΧΧΧ ΧΧΧ ΧΧΧ ERE RHEE EEE EEE EEE 

F691 C9 20 CMP #$20 Befehlskode für ‘Verify’ ? 
F693 FO 03 BEQ $F498 ja 

F695 4C CA Fó JMP $F4CA Befehlskode weiter prüfen 
F698 20 E9 FS JSR $FSE9 Parity fur Datenpuffer berechnen 
F69B 85 3A STA $34 und merken 

F69D 20 BF F7 JSR $F78F 

FAAO 20 OA FS JSR $F50ñ Datenblockanfang suchen 
F6AS AO BB LDY #$BB 

F6AS B9 00 01 LDA $0100,Y Daten aus Puffer 

FOAB 30 FE BVC $F6A8 Byte Ready ? 

ΕΘΑΑ BB CLV 

F&AB 4D 01 ic EOR $1C01 mit Daten von Diskette vergleichen 
ΕΘΑΕ DO 15 BNE $F6C5 ungleich, dann Fehler 
F6B0 C8 INY 

H DO F2 BNE $F6A5 

F6B3 Bi 30 LDA ($30),Y Daten aus Puffer 

F6BS 90 FE BVC $F6BS 

F6B7 B8 CLV 

F6B8 4D 01 1C EOR $1C01 mit Daten von Diskette vergleichen 
F&BB DO 08 BNE $F6C5 ungleich, dann Fehler 
F6BD (8 ΙΝΥ 

FOBE CO FD CPY #$FD 

FCO DO F1 BNE $F4B3 

F6C2 AL 18 F4 JMP $F418 fehlerfreier Abschluß 
F6C5 A9 07 LDA 4$07 

F6C7 4C 69 F9 JMP $F969 29, 'write error' 


XXXXXXXXXXXAXXXYXYXXXKEEXEXXEUEK 
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FACA 20 10 F5 JSR $F510 
F6CD AC 18 F4 JMP $F418 
ΣΑΣ 1111111121. 
F6D0 A? 00 LDA #$00 
F&D2 B5 57 STA $57 
F6D4 85 SA STA $5A 
FADA A4 34 LDY $34 
F6D8 AS 52 LDA $52 
FEDA 29 FO AND #$FO 
F46DC 4A LSR A 

F46DD an LSR A 

F&DE 4A LSR A 

F ODF 4A LSR A 

FEO AA TAX 

F6E1 BD 7F F7 LDA $F77F,X 
FAE OA ASL A 

F6ES OA ASL A 

F6E6 04 ASL A 

F6E7 85 56 STA $56 
F6E9 AS 52 LDA $52 
F6EB 29 OF AND #$0F 
F6ED AA TAX 

F&EE BD 7F F7 LDA $F77F,X 
FOF 1 bA ROR A 

Ε6Ε2 66 57 ROR $57 
ΕΘΕ4 6A ROR A 

F6F5 66 57 ROR $57 
Ε6Ε7 29 07 AND #$07 
F6F9 05 56 ORA $56 
FFB 91 30 STA ($30),Y 
F6FD [8 ΙΝΥ 

F6FE AS 53 LDA $53 
F700 29 F0 AND #$FO 
F702 4A LSR A 

F703 4A LSR A 

F704 4A LSR A 

F705 aa LSR A 

F706 AA TAX 

F707 BD 7F F7 LDA $F77F,X 
F70A 0A ASL A 

F70B 05 57 ORA $57 
F70D 85 57 STA $57 
F70F AS 33 LDA $53 
F711 29 OF AND #$0F 
F713 AA TAX 

F714 BD 7F F7 LDA $F77F,X 
F717 2A ROL A 

F718 2A ROL A 

F719 2A ROL A 

F71A 2A ROL A 

F71B 85 58 STA $58 
F71D 2A ROL A 

F71E 29 01 AND #$01 
F720 05 57 ORA $57 
F722 91 30 STA ($30),Y 


Blockheader lesen 
fertig 


Hi-Nibble isolieren 


und in unteres Nibble schieben 


als Index in Tabelle 


mal 8 


unteres Nibble isolieren 
als Index in Tabelle 


in Puffer 
Pufferzeiger erhöhen 


oberes Nibble isolieren 


in unteres Nibble schieben 


als Index in Tabelle 


unteres Nibble 
als Index 


in Puffer 
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F724 
F725 
F727 
F729 
F72A 
F72B 
F72C 
F72D 
F72E 
F731 
F732 
F733 
F735 
F737 
F738 
F739 
F7SB 
F73D 
F73F 
F741 
F742 
F745 
F746 
F747 
F749 
F74B 
F74D 
F74F 
F751 
F752 
F753 
F754 
F755 
F756 
F759 
F75A 
F75C 
F75D 
Ε75Ε 
F740 
F762 
F764 
F766 
F768 
F769 
F76B 
F76D 
F74F 
F771 
F773 
F774 
F777 
F779 
F77B 
F77C 
F77E 


54 
FO 


7F 


oA 


vA 


oA 
03 
59 
30 


04 
2F 
31 
59 
OF 
7F 
vA 
30 


34 


F7 


F7 


F7 


F7 


INY 
LDA 
AND 
LSR 
LSR 
LSR 
LSR 
TAX 
LDA 
CLC 
ROR 
ORA 
STA 
INY 
ROR 
AND 
STA 
LDA 
AND 
TAX 
LDA 
ASL 
ASL 
AND 
ORA 
STA 
LDA 
AND 
LSR 
LSR 
LSR 
LSR 
TAX 
LDA 
ROR 
ROR 
ROR 
ROR 
ROR 
ROR 
AND 
ORA 
STA 
INY 
BNE 
LDA 
STA 
LDA 
AND 
TAX 
LDA 
ORA 
STA 
INY 
STY 
RTS 


A 

A 

A 
$F77F,X 


A 
$58 
(830) ,Y 


A 
#$80 
$59 
$54 
Η5ΟΕ 


$F77F,X 
A 
Α 
#$7C 
$59 
$59 
$55 
#$F0 
A 


A 
A 
A 


$F77F,X 
Α 
$54 
A 
$5A 
Α 
$5^ 
SEO? 
$59 
($30),Y 


$F76F 
$2F 
$31 
$35 
LE US 


$F77F,X 
554 
($30),Y 


$34 


Pufferzeiger erhöhen 


Hi-Nibble isolieren 


in Puffer 
Pufferzeiger erhöhen 


unteres Nibble 
als Index 


Hi-Nibble isolieren 


in unteres Nibble schieben 


als Index in Tabelle 


in Puffer 
Pufferzeiger erhöhen 


unteres Nibble 


als Index 


in Puffer 
Pufferzeiger erhöhen 
und merken 
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HRT IE ET I EE EEE EH 
F77F OA OB 12 13 OE OF 16 17 


F787 


09 19 ΙΑ 1B OD 1D 1E 15 


Ex £ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 Z 2 2 2 2 2 2 2 2 0 


F78F 
F791 
F793 
F795 
F797 
F799 
F79B 
F79D 
F79F 
Ε7Α1 
F7A3 
F7AS 
F7A7 
F7A9 
F7AB 
F7AD 
F7AF 
F7BO 
F7B2 
F7B4 
F7BS 
F7B7 
F7B9 
F7BA 
F7BC 
F7BF 
F7C1 
F7C3 
F7C5 
F7C6 
F7C8 
F7CA 
F7CC 
F7CD 
F7CF 
F7D1 
F7D2 
F7D4 
F7D6 
F7D7 
F7D9 
F7DB 
F7DD 
F7DF 
F7E1 
F7ES 


F7E6 
F7E8 
F7EA 
F7EC 


A9 
85 
85 
85 
A9 
85 
85 
AS 
85 
Ag 
85 
AS 
85 
β4 
B1 
85 
CB 
Bi 
85 


00 
30 
2E 
36 
BB 
34 
30 
31 
2F 
01 
31 
47 
52 
36 
2Ε 
53 


2E 
94 


F6 


Fó 


LDA 
STA 
STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
STY 
JSR 
LDY 
LDA 
STA 
INY 
BEQ 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
BNE 
LDA 
STA 
LDA 
STA 
STA 
JMP 


LDY 
LDA 
AND 
LSR 


#$00 
$30 

$2E 

$36 
#$BB 
$34 

$50 

$31 

$2F 
#$01 
$31 

$47 

$52 

$34 
($2E) ,Y 
$53 


($2E) ,Y 
$54 


($2E) ,Y 
$55 


$36 
$F 6D0 
$36 
($2E) ,Y 
$52 


$F7D9 
($2E) ,Y 
$53 


($2E) ,Y 
$54 


($2E) ,Y 
$55 


$F7BA 
554 
$53 
#$00 
$34 
$55 
$F6DO 


$34 
($30) ,Y 
#$F8 

A 
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F7ED 
F7EE 
F7EF 
F7F1 
F7F3 
F7F5 
F7F4 
F7F7 
Ε7Ε9 
F7FA 
F7FC 
F7FE 
F800 
F802 
F804 
F806 
F807 
F808 
F809 
ΕΒΟΒ 
F80D 
ΕΒΟΕ 
F811 
F812 
F814 
F816 
F818 
F819 
ΕΒΙΑ 
F81B 
FB1C 
ΕΒΙΕ 
ΕΒΙΕ 
F821 
F823 
F824 
F825 
F826 
F827 
F829 
F82B 
F82D 
F82F 
F830 
F832 
F833 
F835 
F837 
F838 
F839 
F83A 
F83C 
F83E 
F840 
F842 
F844 


SU 
30 
07 


37 


06 
AE 
31 
ΔΕ 
30 
co 


37 
37 
50 
3E 


58 
30 
01 


39 


30 
FO 


99 
39 
30 
OF 


JA 


30 
80 


01 
pA 
5A 
30 
7C 


LSR 
LSR 
STA 
LDA 
AND 
ASL 
ASL 
STA 
INY 
BNE 
LDA 
STA 
LDY 
LDA 
AND 
ROL 
ROL 
ROL 
ORA 
STA 
LDA 
AND 
LSR 
STA 
LDA 
AND 
ASL 
ASL 
ASL 
ASL 
STA 
INY 
LDA 
AND 
LSR 
LSR 
LSR 
LSR 
ORA 
STA 
LDA 
AND 
ASL 
STA 
INY 
LDA 
AND 
CLC 
RDL 
ROL 
AND 
ORA 
STA 
LDA 
AND 
LSR 


A 

A 

$56 
($30) ,Y 
#$07 

A 

A 

$57 


$F802 
$4E 
$31 

$4F 
($30) ,Y 
4550 

Α 

A 

A 
$57 
$57 
($30) ,Y 
TE 

A 
$58 
($30) ,Y 
#$01 

A 

A 

A 

A 

$59 


($30),Y 
#$F0 

Α 

A 

A 

A 

$59 
$59 
($30) ,Y 
#$0F 

ñ 
$5A 


($30) ,Y 
4480 


A 

A 
$501 
$5A 
$5A 
($30),Y 
#$7C 

A 
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F845 4A LSR A 


F846 85 SB STA $5B 
F848 B1 30 LDA ($30),Y 
FB4A 29 03 AND #$03 
F84C 0A ASL A 

F84D 0A ASL A 

F84E 0A ASL A 

F84F 85 SC STA $5C 
F851 C8 INY 

F852 DO 06 BNE $F85A 
F854 AS 4E LDA $4E 
F856 85 31 STA $31 
F858 Α4 AF LDY $4F 
FBSA Bi 30 LDA ($30),Y 
F85C 29 EO AND #$EO 
F85E 2A ROL A 

F85F 2A ROL A 

FB40 2A ROL A 

F861 2A ROL A 

F862 05 SC ORA $5C 
F864 85 SC STA $5C 
F866 Bi 30 LDA ($30) ,Y 
F868 29 1Ε AND #$1F 
FB6A 85 3D STA $5D 
FBAC [8 ΙΝΥ 

WEI 84 34 STY $34 
F86F Ab 56 LDX $56 
F871 BD AO F8 LDA $F8A0,X 
F874 Ab 57 LDX $57 
F876 1D CO F8 ORA $F8CO,X 
F879 85 952 STA $52 
F87B Ab 58 LDX $58 
F87D BD AO F8 LDA $FBAO,X 
F880 Ab 59 LDX $59 
F882 1D CO F8 ORA $F8C0,X 
F885 85 53 STA $53 
F887 Dé SA LDX $5A 
F889 BD AO ΕΒ LDA $F8A0,X 
F88C A6 58 LDX $5B 
F88E 10 CO F8 . ORA $F8CO,X 
F891 85 34 STA $54 
F893 AG SC LDX $5C 
F895 BD AO ΕΒ LDA $F8A0,X 
F898 Ab 50 LDX $5D 
FB9ñ 1D CO ΕΒ DORA $FB8CO,X 
F89D 85 55 STA $55 
F89F 60 RTS 


EEE EEE 
F8AO0 FF FF FF FF FF FF FF FF 
ΕΒΑΒ ΕΕ 80 00 10 FF CO 40 50 
F8BO FF FF 20 30 FF FO 60 70 
F8B8 FF 90 AO BO FF DO EO FF 


F8CO0 FF FF FF FF FF FF FF FF 
FBC8 FF 08 00 01 FF OC 04 05 
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ΕΘΡΟ FF FF 02 05 FF OF 06 07 
F8D8 FF 09 OA OB FF OD OE FF 


*XkkkktTEXYXX XX Xxx xxxrxkxkkexxxbuxkke€e 


FBEO 
FBE2 
F8E4 
F8E6 
FBEB 
ΕΘΕΑ 
F8EC 
F8EE 
F8F0 
F8F2 
F8F4 
F8F7 
F8F9 
F8FB 
F8FD 
F8FF 
F901 
F902 
F904 
F906 
F907 
F909 
F90B 
F90C 
F90E 
F911 
F913 
F915 
F917 
F918 
FOIA 
F91C 
F91E 
F91F 
F921 
F923 
F924 
F926 
F928 
F929 
F92B 
F92D 
F92F 
F931 
F933 


F934 
F936 
F938 
ΕΠΣΑ 
FISC 
F93E 


AQ 
85 
85 
85 
89 
85 
A9 
85 
AS 
85 
20 


00 
34 
2E 
36 
01 
4E 
BA 
4F 
31 
2F 
Eó 
52 
38 
36 
53 
2E 


54 
2E 


55 
2E 


36 
Eó 
36 
52 
2E 


33 
2E 


F7 


F7 


LDA 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
STY 
JSR 
LDY 
LDA 
STA 
INY 
BEQ 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
BNE 
LDA 
STA 
LDA 
STA 
RTS 


LDA 
STA 
LDA 
STA 
LDA 
STA 


4400 
$34 

$2E 

$36 
#$01 
$4E 
#$BA 
$4F 

$31 

$2F 
$F7E6 
$52 

$38 

$36 

$53 
($2E) ,Y 


$54 
($2E),Y 


$55 
($2E) ,Y 


$36 
$F7EA 
$36 

$52 
($2E) ,Y 


$F92B 
$53 
($2E) ,Y 


$54 
($25) ,Y 


$55 
($2E) ,Y 


$F90C 
$53 
554 
$2F 
$31 


$31 
$2F 
#$00 
$31 
#$24 
$34 


254 


F940 AS 39 LDA $39 


F942 85 52 STA $52 
F944 AS 1A LDA 414 
F946 85 53 STA $53 
F948 AS 19 LDA $19 
F94ñ 85 54 STA $54 
F94C AS 18 LDA $18 
F94E 85 55 STA $55 
F950 20 DO F6 JSR $F6D0 
F953 AS 17 LDA $17 
F955 85 52 STA $52 
F957 AS 14 LDA $14 
F959 s 53 STA $53 
F95B A9 00 LDA #$00 
F9SD 85 5 STA $54 
F95F 85 55 STA $55 
F961 20 DO Fé JSR $F4D0 
F944 AS 2F LDA $2F 
F966 85 31 STA $31 
F968 60 RTS 

F969 A4 3F LDY $3F 
F96B 99 00 00 STA $0000,Y 
F95E AS 50 LDA $50 
F970 FO 03 BEQ $F975 


F972 20 F2 FS JSR $F5F2 
F975 20 8F FQ JSR $F98F 


F978 AG 49 LDX $49 Stackpointer zurückholen 
F97A 9A TXS 

F97B 4C BE F2 JMP $F2BE 

Ε97Ε A9 AD LDA #$A0 

F980 85 20 STA $20 

F982 AD 00 IC LDA $1C00 

F985 09 04 ORA 8404 Laufwerkmotor ausschalten 
F987 BD 00 1C STA $1C00 

F9BA A9 3C LDA ##3C 

F98C 85 48 STA $48 

F98E 60 RTS 

F98F Ab 3E LDX $3E 

F991 AS 20 LDA $20 

F993 09 10 ORA #$10 

F995 85 20 STA $20 

F997 A9 FF LDA #$FF 

F999 85 48 STA $48 

F99B 60 RTS 


F99C AD 07 1C LDA $1C07 
F99F BD 05 IC STA $1C05 
FIA2 AD 00 1C LDA $1000 


F9AS 29 10 AND #$10 ‘Write Protect’ ? 
F9A7 C35 IE CMP $1E 

F9ñ9 85 1E STA $1E 

FIAB FO 04 BEQ $F9B1 

FAD a9 01 LDA #$01 


255 


ΕΠΑΕ 85 IC STA $1C 
F9B1 AD FE 02 LDA $02FE 


F9B4 FO 15 BEQ $F9CB 
F9B6 C9? 02 CMP 8402 
F9B8 DO 07 BNE $F9C1 
WEI A9 00 LDA #$00 
FBC 8D FE 02 STA $02FE 
F9BF FO 0A BEQ $F9CB 
FOCI 85 4A STA $4A 
F9C3 A9 02 LDA #$02 


F9CS 8D FE 02 STA $02FE 
FICB AC 2E FA JMP $FAZE 


F9CB AG 3E LDX $3E 
F9CD 30 07 BMI $F9D6 
F9CF AS 20 LDA $20 
F9D1 AB TAY 

F9D2 C9 20 CMP #$20 
[954 DO 03 BNE $F9D9 
F9D6 4C BE FA JMP £FABE 
F909 Cé 48 DEC $48 
F9DB DO 1D BNE $F9FA 
F9DD 98 TYA 

F9DE 10 04 BPL $F9E4 
ΕΦΕΟ 20 7F AND #$7F 
F9E2 85 20 STA $20 
FIE4 29 10 AND #$10 
F9E6 FO 12 BEQ $F9FA 
F9EB8 AD 00 1C LDA $1C00 
F9EB 29 FB AND #$FB Laufwerkmotor ein 
F9ED 8D 00 1C STA $1C00 
F9F0 A9 FF LDA #$FF 
F9F2 85 3E STA $3E 
F9F4 A9 00 LDA 4300 
F9OFG 85 20 STA $20 
F9F8 FO DC BEQ $F9D6 
F9FA 98 ΤΥΑ 

F9FB 29 40 AND #$40 
F9FD DO 03 BNE $FA02 


F9FF AC BE FA JMP $FABE 


FA02 DL 62 00 JMP ($0062) 


FAOS AS 4A LDA $4A 
FA07 10 05 BPL $FAOE 
FA09 49 FF EOR #$FF 
FAOB 18 CLC 

FAOC 69 01 ADC $$01 
ΕΑΟΕ C3 64 CMP $64 
FA10 BO OA BCS $FAIC 
FA12 A? 3B LDA #$3B 
FALA 85 62 STA $42 
FA16 A9 FA LDA #$FA Zeiger $62/$63 auf $FA3B 
Fñ18 85 63 STA $65 
FAIA DO 12 BNE $FA2E 
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FAIC 
FALE 
FA20 
FA22 
FA24 
FA26 
FA2B 
FA2A 
FA2C 
FA2E 
FASO 
FA32 
FAS4 
FA37 
FASB8 


XkXkkXXXXXXXXXXxÁ*xkcxxxx xxx 


FA3B AS 4A LDA $4A 
FASD DO EF BNE $FAZE 
FASF A9 4E LDA #$4E 
FA41 85 42 STA $62 
ΓΑ45 A9 FA LDA #$FA 
FA43 85 63 STA $63 
FA47 A9 05 LDA #$05 
FA49 85 60 STA $60 
FA4B 4C BE FA JMP $FABE 
La 2 2 2 2 & 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 
FA4E C6 60 DEC $60 
FASO DO 6€ BNE $FABE 
FAS2 AS 20 LDA $20 
FAS4 29 BF AND #$BF 
FAS6 85 20 STA $20 
FAS8 A9 05 LDA #$05 
FASA BS 62 STA $62 
FASC 89 FA LDA #$FA 
FASE 85 43 STA $63 
FA50 4C BE FA JMP $FABE 
HEREEEEREREREREREERER ERE EER EEE 
FA63 Có 4A DEC 444 
FASS AE 00 IC LDX $1C00 
FA&B EB INX 

FA49 BA TXA 

FALA 29 03 AND #$03 
FASC 85 4B STA $4B 
FA6E AD 00 1C LDA $1C00 
FA71 29 FC AND #$FC 
FA73 05 4B ORA $4B 
FA7S BD 00 15 STA $1C00 
FA78 ας BE FA JMP $FABE 
ΚΕΚΕΚΕΚΕΚΚΕΚΑΕΚΑΧΕΚΑΚΕΚΕΧΕΚΧΕΚᾺ 
FA7B 38 SEC 

FA7C AD 07 1€ LDA $1C07 
FA7F ES SF SBC $5F 


SBC 
SBC 
STA 
LDA 
STA 
LDA 
5TA 
LDA 
STA 
LDA 
BPL 
INC 
LDX 
DEX 
JMP 


$5E 
$5E 
$51 
$5E 
$60 
4$7B 
$52 
#$Fñ 
$63 
$48 
$FA63 
44 
$1C00 


$FA69 


Zeiger $62/$63 auf $FA7B 
Schrittzähler für Kopftransport 


erhöhen 


Schrittzähler für Kopftransport 
noch nicht null ? 


Zeiger $62/$63 auf $FA4E 


Zähler auf 5 


Zähler erniedrigen 
noch nicht null ? 


Bit & löschen 


Zeiger $62/$63 auf $FA05 


Schrittzähler für Kopftransport erniedrigen 


Steppermotor aus 
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FA81 8D 05 IC STA 
ΕΑΒΦ C5 60 DEC 
ΓΑΒ DO OC BNE 
FABB AS SE LDA 
FABA 85 50 STA 
FASC a9 97 LDA 
FABE 85 42 STA 
FA90 A9 FA LDA 
FA92 85 53 STA 
FA94 4C 2E FA JMP 
EHLEREEEEREREEREEERE EKER ER EEE S 
FA97 Có 61 DEC 
FA99 DO F9 BNE 
FA9B A9 AS LDA 
FA9D 85 62 STA 
FA9F A9 FA LDA 
ΕΑΑΙ 85 63 STA 
FAAS DO EF BNE 
La 2 2 2 2 2 2 2 22 22 2 2 2 2 2 2 22 2 2 2 2 2 2 2 2 A 
FAAS AD 07 1C LDA 
FAAB 18 CLC 
EK 65 SF ADC 
FAAB 8D 05 IC STA 
FAAE Có 60 DEC 
FABO DO E2 BNE 
FAB2 A9 4E LDA 
FAB4 85 62 STA 
FABS A9 FA LDA 
FABB 85 63 STA 
FABA A9 05 LDA 
FABC 85 60 STA 
FABE AD OC 1C LDA 
FACI 29 FD AND 
FAC3 8D OC 1C STA 
FACA 60 RTS 
ΧΧΧ ΧΧΧ ΧΧΧ ELAR EET ΧΑΚ 
FAC7 AS 51 LDA 
FAC9 10 2A BPL 
FACB AG 3D LDX 
FACD A9 60 LDA 
FACF 95 20 STA 
FAD1 DN 01 LDA 
FADS 95 22 STA 
FADS 85 51 STA 
FAD7 A9 A4 LDA 
FAD9 85 4A STA 
FADB AD 00 IC LDA 
FADE 29 FC AND 
FAEO BD 00 1C STA 
FAES a9 OA LDA 
FAES 8D 20 04 STA 
FAEB A9 AO LDA 
FAEA 8D 21 06 STA 


516505 
960 
$FA94 
$5E 
£50 
#$97 
$62 
id 
$63 
$FA2E 


$61 
$FA94 
8545 
$62 
#$FA 
$63 
$FA94 


$1007 


$5F 
$1C05 
$60 
$FA94 
#$4E 
$62 
#$FA 
$63 
#$05 
$60 
$1COC 
#$FD 
$1C0C 


$51 
$FAF5 
$3D 
#$60 
$20,X 
4401 
622 Χ 
$51 
#$A4 
Φ4β 
$1C00 
#$FC 
$1000 
#$0A 
$0520 
#$A0 
$0521 


Zähler erniedrigen 
noch nicht null ? 


Zähler neu setzen 


Zeiger $62/$63 auf $FA97 


Zeiger $62/$63 auf $FAAS 


Zähler erniedrigen 
noch nicht null ? 


Zeiger $62/$653 auf $FA4E 


Zähler auf 5 


Bit 1 löschen 


Formatierung 

Tracknummer 

Formatierung bereits im Gange ? 
Drivenummer 

Flag fur Kopftransport 

setzen 


Zieltrack setzen 

laufende Tracknummer bei der Formatierung 
164 

Schrittzahler für Kopftransport 


Steppermotor ein 
10 
Fehlerzähler 


$621/$622 = 4000 
zur Bestimmung der Trackkapazität initialisieren 
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FAED 
FAEF 
FAF2 


FAFS 
FAF7 
FAF9 
FAFB 
FAFD 


FBOO 
FB03 
FBOS 
FB07 
FBO9 


FBOC 
FBOF 
FBi2 
FB14 
FB17 
FBLA 
FBiD 
FB20 
FB22 
FB25 
FB2B 
FB2A 
FB2D 
FB2F 
FB32 
FB35 
FB37 
FB39 
FB3C 
FB3E 
FB41 
FB43 
FB46 
FB49 
FB4B 
FB4E 
FB4F 
FBS1 
FBS2 
ΕΒ54 
FB55 
ΕΒ57 
FB59 


FBSC 
FBSE 
FB60 
FB62 
FB64 
FB¿7 


06 
F9 


F9 


1C 


FD 


FD 
FD 


1C 
FD 
FE 
FS 


18 
18 


18 


18 


18 


LL 


15 


18 
16 


18 


FD 


18 
LL 


LDA 
STA 
JMP 


LDY 
CMP 
BEQ 
STA 
JMP 


LDA 
AND 
BNE 
LDA 
JMP 


JSR 
JSR 
LDA 
STA 
JSR 
JSR 
JSR 
LDA 
ORA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDY 
LDX 
BIT 
BMI 
BIT 
BPL 
LDA 
BIT 
BPL 
LDA 
ASL 
BPL 
INX 
BNE 
INY 
BNE 
LDA 
JMP 


STX 
STY 
LDX 
LDY 
LDA 
BIT 


#$0F 
$0622 
$F99C 


#$00 
($32) ,Y 
$F B00 
($32) ,Y 
$F99C 


$1C00 
#$10 
$FBOC 
#$08 
$FDD3 


$FDAS 
$FDC3 
#$55 

$1C01 
$FDC3 
ΦΕΕΟΟ 
ΦΕ 956 
540 

51808 
$180B 
#$62 

$1806 
#$00 

$1807 
$1805 
«$00 

#$00 

$1000 
$FB39 
$1C00 
$FBSE 
$1804 
$1C00 
$FBSC 
$180D 
A 

$FB46 


$FB43 


$FB45 
#$02 
$FDD3 


$71 
$72 
#800 
#$00 
$1804 
41600 


4000 < Kapazität < 214000 Bytes 


zurück in Jobschleife 


zur Jobschleife 


"Write Protect’ ? 
nein 


26, “write protect on’ 


10240 mal Kode $FF auf Diskette schreiben 
($621/$622) mal Kode $FF auf Diskette 

$55 

zum Schreibkopf 

und ($621/$622) mal auf Diskette 

auf Lesen umschalten 

Timer setzen, $FF (SYNC) suchen 


Timer 1 free running 


98 Taktzyklen, ca. 0.1 ms 


Timer starten 
Zähler auf Null 


SYNC gefunden ? 

nein, warten 

SYNC gefunden ? 

warten bis SYNC-Bereich zu Ende 
Interruptflag Timer zurücksetzen 
SYNC gefunden ? 

nicht SYNC-Bereich ($55) zu Ende ? 
Interrupt-Flag-Register 
Timerflag nach Bit sieben 

Timer noch nicht abgelaufen ? 
Zähler erhöhen 


Hi-Byte des Zählers erhöhen 


überlauf, dann Fehler 
20, 'read error’ 


Zählerstand gleich Dauer des $55-Bereichs 
merken 


Zähler wieder auf null 


Timer 1 Interruptflag rücksetzen 
SYNC gefunden ? 
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FB6A 
FBAC 
FBOF 
FB70 
FB72 
FB73 
FB75 
FB76 
FB78 
FB7A 


FB7D 
FB7E 
FB7F 
FB81 
FB82 
FB84 
FB85 
FB87 
FB88 
FBBA 
FB8C 
FB8E 
FB8F 
FB90 
FB92 
FB93 
FB94 
FB96 
FB97 
FB9?8 
FB9A 
FB9C 
FB9E 
FBAO 
FBA2 
FBA3 
FBAS 
FBA8 
FBAB 
FBAD 
FBBO 
FBB3 


FBBö 
FBBB 
FBBA 
FBBB 
FBBE 
FBCO 
FBC2 
FBC3 
FBC4 
FBC6 
FBC7 
FBC9 


11 
OD 


FS 
EF 
EC 


02 
D3 


71 
70 
72 
71 


0B 
FF 


FF 


F2 
03 


18 


FD 


06 
06 


06 


06 
FB 


LL 


BMI 
LDA 
ASL 
BPL 
INX 
BNE 
INY 
BNE 
LDA 
JMP 


SEC 
ΤΧΑ 
SBC 
TAX 
STA 
TYA 
SBC 
TAY 
STA 
BPL 
EOR 
TAY 
TXA 
EOR 
TAX 
INX 
BNE 
INY 
ΤΥΑ 
ΒΝΕ 
CPX 
BCC 
ASL 
ROL 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
JMP 


LDX 
LDY 
CLV 
LDA 
BPL 
BVC 
CLV 
INX 
BNE 
INY 
BNE 
LDA 


$FB97 


$FB9E 
«$04 
$FBB4 
$70 
$71 


$70 

$0621 
$0621 
$71 

$0622 
$0622 
$FBOC 


#$00 
#$00 


$1C00 
$FBCE 
$FBBB 
$FBBB 


$FBBB 
#$03 


ja 

Interrupt-Flag-Register 

Timerflag nach Bit 7 

nein, warten bis Timer abgelaufen 


Zähler erhöhen 


überlauf, dann Fehler 
20, ‘read error’ 


Differenz zwischen Zählerstand ($55) 


und Wert fiir $FF-Bereich 
nach $70/$71 bringen 


Differenz positiv ? 


Absolutwert der Differenz berechnen 


Differenz kleiner 4 * 0.1 as ? 
ja 


Differenz verdoppeln 


zu Ausgangswert 4000 addieren 


wiederholen, bis Differenz kleiner 0.4 ms 
Zähler wieder auf null 
SYNC 3 


nein 
Byte Ready ? 


Zähler erhöhen 


überlauf, dann Fehler 
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FBCB 


FBCE 
FBCF 
FBDO 
FBD3 
FBD4 
FBDS 
FBDB 
FBDA 
FBDD 
FBEO 
FBE2 
FBES 
FBE7 
FBE9 
FBEA 
FBEB 
FBEE 
FBFO 
FBF1 
FBF2 
FBF3 
FBFS 
FBF7 
FBF8 
FBFA 
FBFB 
FBFE 
FCOO 
FCOS 
FCO4 
FCOS 
FC07 
FC08 
FCOA 
FCOB 
FCOE 
FC10 
FC12 


FC13 
FC16 
FC17 
FC19 
FC1A 
FC1C 
FCIE 
FCIF 
FC21 
FC22 
FC24 
FC27 
FC29 
FC2B 
FC2D 


D3 


FD 


06 


06 


18 
18 


06 


06 


06 


06 


06 


FD 


06 


ΜΕ 


ΤΧΑ 
ASL 
STA 
TYA 
ROL 
STA 
LDA 
AND 
STA 
LDA 
5TA 
LDX 
LDY 
TYA 
CLC 
ADC 
BCC 
INY 
INY 
DEX 
BNE 
EOR 
SEC 
ADC 
CLC 
ADC 
BCS 
DEC 
TAX 
ΤΥΑ 
EOR 
SEC 
ADC 
CLC 
ADC 
BPL 
LDA 
JMP 


TAY 
ΤΧΑ 
LDX 
SEC 
SBC 
BCS 
DEY 
BMI 
INX 
BNE 
STX 
CPX 
BCS 
LDA 
JMP 


$FDD3 


21, read error 


Zähler verdoppeln 


und nach $624/$625 als Spurkapazität 


102 


Anzahl der Sektoren in diesem Track 


Berechnung der Anzahl aller Bytes 
in den Blockzwischenraumen 


Ergebnis in A/X 


22, 'read error’ 


Die Gesamtzahl wird durch die Anzahl 
der Sektoren ($43) dividiert 


Zahl der Bytes pro Zwischenraum 
mit Minimalwert vergleichen 
ok 


23, ‘read error’ 
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FC30 
FC31 
FC33 
Ε056 
FC38 
FC3B 
FC3D 
FC3F 
FC41 
FC44 
FC45 
FC46 
FC49 
FC4C 
FC4D 
FC4F 
FC32 
FCS3 
FCSS 
FC58 
FC59 
FCSB 
FCSE 
FCSF 
FLA) 
FC64 
FC65 
FC58 
FC69 
FCö6B 
FCGE 
FC71 
FC74 
FC77 
FC7A 
FC7D 
FC80 
FC82 
FC84 
FC85 
FC86 
FC87 
FC88 
FC8B 
FC8C 
FC8E 
FC90 
FC92 
FC95 
FC96 
FC97 
FC98 
FC9B 
FC9E 
FCAO 
FCA2 


06 


06 


03 


06 
03 


03 


03 


03 


03 


03 


02 
02 
02 
02 
02 
06 
06 


05 


FE 


FD 
FD 


FS 


CLC 
ADC 
STA 
LDA 
STA 
LDY 
LDX 
LDA 
STA 
INY 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
STA 
INY 
LDA 
EOR 
EOR 
EOR 
EOR 
STA 
INC 
LDA 
CMP 
BCC 
TYA 
PHA 
INX 
TXA 
STA 
INX 
BNE 
LDA 
STA 
JSR 
PLA 
TAY 
DEY 
JSR 
JSR 
LDA 
STA 
JSR 


$43 
$0627 
#$00 
$0628 
#$00 
$3D 

$39 
$0300,Y 


$0628 
$0300,Y 


$51 
$0300, Y 


$13,X 
$0300, Y 


$12,X 
$0300,Y 


#$0F 
$0300,Y 


$0300,Y 


#500 
$02FA,Y 
$02FB,Y 
$02FC,Y 
$02FD,Y 
$02F9,Y 
$0628 
$0628 
$43 
$FC3F 


$0500, X 


$FCBB 
#$03 
$31 
$FESO 


$FDES 
$FDF5 
#$05 
$31 
$FSE9 


Rest der Division 
plus Anzahl der Sektoren 
merken 


Zahler fiir Sektoren 

Zahler lo 

Drivenummer 

Konstante 8, Kennzeichen fiir Headeranfang 
in Puffer 


Sektornummer 
in Puffer 


Tracknummer 
in Puffer 


ID 2 
in Puffer 


ID 1 
in Puffer 


15 
in Puffer 


15 in Puffer 


Prüfsumme bilden 


Zähler erhöhen 

Zähler 

mit Anzahl der Sektoren vergleichen 
kleiner, dann weiter machen 


Pufferzeiger auf $300 


Pufferdaten kopieren 
Daten in Puffer kopieren 


Pufferzeiger auf $500 
Parity für Datenpuffer berechnen 
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FCAS 
FCA7 
FCAA 
FCAC 
FCAE 
FCBI 
FCB3 
FCB6 
FCB8 
FCBA 
FCBB 
FCBC 
FCBE 
FCCO 
FCC2 
FCC4 
FCCS 
FCC8 
FCCB 
FCCC 
FCCD 
FCCF 
FCD1 
FCD3 
FCD4 
FCDA 
FCD9 
FCDA 
FCDC 
FCDE 
FCEO 
FCE2 
FCE3 
FCE6 
FCE7 
FCE9 
FCEB 
FCED 
FCEE 
FCF1 
FCF4 
FCFS 
FCF7 
FCF9 
FCFB 
FCFC 
FCFE 
FDOL 
FDO2 
FDO4 
FDO& 
FD09 
FDOB 
FDOC 
FDOF 
FD10 


F7 


FE 


1C 


03 
1C 


1C 


1C 


01 


1C 


1C 


06 


IC 


STA 
JSR 
LDA 
STA 
JSR 
LDA 
STA 
LDX 
BVC 
CLV 
DEX 
BNE 
LDX 
LDY 
BVC 
CLV 
LDA 
STA 
INY 
DEX 
BNE 
LDX 
BVC 
CLV 
LDA 
STA 
DEX 
BNE 
LDA 
LDX 
BVC 
CLV 
STA 
DEX 
BNE 
LDX 
BVC 
CLV 
LDA 
STA 
INX 
BNE 
LDY 
BVC 
CLV 
LDA 
STA 
INY 
BNE 
LDA 
LDX 
BVC 
CLV 
STA 
DEX 
BNE 


$3A 
$F78F 
#$00 
$32 
$FEOE 
#$FF 
$1C01 
«$05 
$FCB8 


$FCBB 
#$0A 
$32 
$FCC2 


$0300,Y 
$1001 


$FCC2 
#$09 
$FCDi 


#$55 
$1C01 


$FCD1 
#$FF 
#$05 
$FCEO 


$1C01 


$FCEO 
#$BB 
$FCEB 


$0100,X 
$1C01 


$FCEB 
«$00 
$FCF9 


($30) ,Y 
$1C01 


$FCF9 
#555 

$0626 
$FD09 
$1C01 


$FDO9 


und merken 


Umschalten auf Schreiben 10240 mal $55 schreiben 
zum Schreibkopf 


5 mal $FF schreiben 
Byte Ready ? 


10 mal 
Pufferzeiger 
Byte Ready ? 


Daten aus Puffer 
schreiben 


schon 10 Daten geschrieben ? 


9 mal 
Byte Ready ? 


$55 
schreiben 


schon 9 mal ? 
$FF 

5 mal 

Byte Ready ? 


zum Schreibkopf 


Bereich $1BB bis $1FF 
schreiben 


Byte Ready ? 
256 Byte Daten 


auf Diskette schreiben 


$55 
($626) mal 


schreiben 
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FD12 AS 32 LDA $32 


FD14 18 CLC 

FD15 69 OA ADC #$0A plus 10 

FD17 B5 32 STA $32 

FD19 CE 28 06 DEC $0628 Sektornummer erniedrigen 
FD1C DO 93 BNE $FCBi 

FDIE 90 FE BVC $FDIE Byte Ready ? 

FD20 B8 CLV 

FD21 30 FE BVC $FD21 Byte Ready ? 

FD23 B8 CLV 

FD24 20 00 FE JSR $FEOO Umschalten auf Lesen 
FD27 A9 C8 LDA #$CB 200 

FD29 BD 23 06 STA $0623 

FD2C A? 00 LDA #$00 

FD2E 85 30 STA $30 

FD30 A9 03 LDA #$03 Pufferzeiger auf $300 
FD32 85 31 STA $31 

FD34 AS 43 LDA $43 Anzahl der Sektoren pro Track 
FD36 8D 28 06 STA $0628 

FD39 20 56 F5 JSR $F556 SYNC abwarten 

FDSC A2 0A LDX #$0A 10 Daten 

FDSE A0 00 LDY $$00 

FD40 30 FE BVC $FD40 Byte Ready ? 

FD42 B8 CLV 

FD43 AD Οι 1C LDA $1C01 Byte lesen 

FD46 Di 30 CMP ($30),Y mit Daten im Puffer vergleichen 
FD48 DO OE BNE $FD58 ungleich, Fehler 

FD4A C8 INY 

FD4B CA DEX 

FDAC DO F2 BNE $FD40 

FD4E 18 CLC 

FD4F AS 30 LDA $30 

FDS1 69 OA ADC #$0A Zeiger um 10 erhöhen 
FD53 85 30 STA $30 

FDSS 4C 62 FD JMP $FD62 

FD58 CE 23 06 DEC 40625 Zähler für Versuche erniedrigen 
FDSB DO CF BNE $FD2C noch nicht null ? 

FDSD DH 06 LDA #$04 sonst Fehler 

FDSF 4C D3 FD JMP $FDD3 24, 'read error' 

FD62 20 56 F5 JSR $F556 SYNC abwarten 

FD65 AO BB LDY #$BB 

ΕΡά7 50 ΕΕ BVC $FD67 Byte Ready ? 

FD69 BB CLV 

FD4A AD 01 16 LDA $1C01 Byte lesen 

FDóD D9 00 Ol CMP $0100,Y und mit Pufferinhalt vergleichen 
FD70 DO Eó BNE $FD58 ungleich, Fehler 

FD72 C8 INY 

FD73 DO F2 BNE $FD67 nächstes Byte 

FD75 A2 FC LDX #$FC 

FD77 90 FE BVC $FD77 Byte Ready ? 

FD79 B8 CLV 

FD7A AD 01 1C LDA $1C01 Byte lesen 

FD7D D9 00 05 CMP $0500,Y mit Pufferinhalt vergleichen 
FD80 DO Dó BNE $FD58 ungleich, dann Fehler 
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FD82 C8 INY 
FD83 CA DEX 
FD84 DO Fi BNE 
FD8& CE 28 06 DEC 
FD89 DO AE BNE 
FD8B E6 51 INC 
FD8D AS 5ι LDA 
FD8F C9 24 CMP 
FD91 BO 03 BCS 
FD93 4C 9C F9 JMP 
FD96 A9 FF LDA 
FD98 85 51 STA 
FD9A A9 00 LDA 
FD9C 85 50 STA 
FD9E A9 Οἱ LDA 
FDAO 45 69 F9 JMP 
HHEHERERERERHRREREERE EEE RE ERE SE 
FDAS AD OC iC LDA 
FDAG 29 1Ε AND 
FDAB 09 CO ORA 
FDAA 8D OC 1C STA 
FDAD AI FF LDA 
FDAF BD 03 1C STA 
FDB2 8D 01 1C STA 
FDBS 2 28 LDX 
FDB7 AO 00 LDY 
FDB9 50 FE BVC 
FDBB B8 CLV 
FDBC 88 DEY 
FDBD DO FA BNE 
FDBF CA DEX 
FDCO DO F7 BNE 
FDC2 60 RTS 
ΑΧ ΚΕΚ ΧΧΧ ΧΧΧ ΕΚΑΧ ΧΧΧ E REE EERE 
FDCS AE 21 06 LDX 
FDC& AC 22 06 LDY 
FDC9 30 FE BVC 
FDCB B8 CLV 
FDCC CA DEX 
FDCD DO FA BNE 
FDCF 88 DEY 
FDDO 10 F7 BPL 
FDD2 60 RTS 
HERR ER ERE EEE EERE ERE EEE HE EE HE 
FDDS CE 20 06 DEC 
FDD& FO 03 BER 
FDD8 AU 9C F9 JMP 
FDDB AO FF LDY 
FDDD 84 51 STY 
FDDF C8 INY 
FDEO 84 50 STY 


$FD77 
$0628 
$FD39 
$51 
$51 
#$24 
$FD96 
$F99C 


#$FF 
$51 
#$00 
$50 
8301 
$F969 


$1C0C 
#$1F 
ELO 
$1COC 
#$FF 
$1C03 
$1C01 
«$28 
8500 
$FDB9 


$FDB9 


$FDB9 


$0621 
$0622 
$FDC9 
$FDC9 


$FDC9 


$0620 
$FDDB 
$F99C 


ert 
$51 


$50 


nächstes Byte 

Sektorzähler erniedrigen 

noch nicht null ? 

Tracknummer erhöhen 

mit 36, höchster Tracknummer +I vergleichen 


größer, dann Formatierung fertig 
weiter machen 


Tracknummer auf $FF 


ok 


10240 mal $FF schreiben 


PCR auf Schreiben umschalten 


Port A (Schreib/Lesekopf) auf Ausgabe 
$FF auf Diskette schreiben 
40 


Byte Ready ? 


($621/$622) mal schreiben/lesen 


Byte Ready ? 


Versuchezähler beim Formatieren 
Anzahl der Versuche erniedrigen 
null, dann Fehler aelden 

weiter machen 


Flag für Formatierung beendet 
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FDE2 4C 69 F9 JMP $F969 
RXXEXXEXEXEXEXEIXEEXEXIEXEEEE IE 
FDES B9 00 03 LDA $0300,Y 
FDEB 99 45 03 STA $0345,Y 
FDEB 88 DEY 

FDEC DO F7 BNE $FDES 
FDEE AD 00 03 LDA $0300 
FDF1 80 45 03 STA $0345 
FDF4 60 RTS 

RRR EERE EEE ERE EERE EE EH 
FDFS AO 44 LDY $$44 
FDF7 B9 BB 01 LDA $01BB,Y 
FDFA 91 30 STA ($30),Y 
FDFC 88 DEY 

FDFD 10 F8 BPL $FDF7 
FDFF 60 RTS 

RRR ER EEE EEE EEE 
FEOO AD OC 1C LDA $1COC 
FEOS 09 EO ORA #$E0 
FEOS 8D OC 1C STA $1COC 
FEOB A? 00 LDA #$00 
FEOA 8D 03 IC STA $1C03 
FEOD 60 RTS 
HEEKHEERERE HERE REE EEEERERE ERED 
FEOE AD OC 1C LDA 51500 
FE11 29 -1F AND #$1F 
FE13 09 CO ORA #$C0 
FE15 8D OC 1C STA $1C0C 
FE18 A9 FF LDA #$FF 
FELA 8D 03 1C STA 41005 
FE1D A9 55 LDA #$55 
FEIF 8D 01 1C STA $1C01 
FE22 A2 28 LDX #$28 
FE24 A0 00 LDY #$00 
FE26 50 FE BVC $rE26 
FE28 B8 CLV 

FE29 88 DEY 

FE2A DO FA BNE $FE26 
FE2C CA DEX 

FE2D DO F7 BNE $FE26 
FE2F 60 RTS 

LES SZ SEITE ΣΧΕΧΕΕΧΕΕ ΕΕΚ 
FE30 A? 00 LDA #$00 
FE32 85 30 STA $30 
FE34 85 2E STA $2E 
FE36 85 36 STA $364 
FE38 A9 BB LDA #$BB 
FESA 85 34 STA $34 
FESC AS 31 LDA $31 
FE3E 85 2Ε STA $2F 
FE40 A9? 01 LDA #$01 


Fehlerabschluß 


Pufferinhalt kopieren 


$1BB bis $1FF 
in Puffer $30/$31 schreiben 


Umschalten auf Lesen 


PCR auf Lesen umschalten 


Port A auf Eingang 


10240 mal $55 schreiben 


PCR auf Schreiben umschalten 


Port A auf Ausgabe zum Schreibkopf 
401010101 
auf Port A zum Schreibkopf 


Byte Ready von Schreibelektronik ? 


10240 mal 
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FE42 85 31 STA $31 


FE44 A4 36 LDY $36 
FE46 B1 2E LDA ($2E),Y 
FE48 85 52 STA $52 
FE4A C8 INY 

FE4B B1 2E LDA ($2E),Y 
FE4D 85 53 STA $53 
FEAF C8 INY 

FESO Bi 2E LDA ($2E),Y 
FES2 85 54 STA $54 
FES4 CB INY 

FESS Bi 2E LDA ($2E),Y 
FES7 85 55 STA $55 
FES9 C8 INY 

FESA FO 08 BEG $FE64 
FESC 84 56 STY $36 


FESE 20 DO Fó JSR $F6D0 
FE41 4C 44 FE JMP $FE44 


FE64 4C DO Fé JMP $F4D0 


BERKER ER Interrupt-Routine 


FE67 48 PHA 

FE68 BA TXA 

ΕΕ69 48 PHA Register retten 

FE4A 98 TYA 

ΕΕόΒ 48 ΡΗΑ 

FE6C AD OD 18 LDA $180D Interrupt vom seriellen Bus (ATN IN) ? 
FE&F 29 02 AND #$02 

FE71 FO 03 BEQ $FE76 nein 

FE73 20 53 ER JSR $E853 seriellen Bus bedienen 

FE76 AD OD 1C LDA $1COD Interrupt von Timer 1 ? 

FE79 04 ASL A 

FE7A 10 03 BPL $FE7F nein 

FE7C 20 BO F2 JSR $F2B0 IRQ-Routine für Disk-Controller 
FE7F 68 PLA 

FE80 a8 TAY 

ΕΕΒΙ 68 PLA Register zurückholen 

FE82 AA TAX 

FEBS 68 PLA 

FEB4 40 RTI 

BERKER EEE Konstanten für Diskettenformat 
FEBS 12 18, Track für BAM und Directory 
FEBA 04 Start der BAM ab Position 4 
FE87 04 4 Bytes in BAM für jeden Track 
FEB8 90 $90 = 144, Ende BAM, Start Diskname 


EXERXTEXEXEEXEEXEREXEEXEELEEEEEEEE Tabelle der Kommandoworte 

FERN 56 49 44 4D 42 55 MIU DA "Wo. UB. dg 
FE8F 50 26 43 52 53 AE Ῥ '&', UV. RV. 'S', ἽΝ 
EXXGOUEOECOEREREEXCEEXEEREEREEUGEGEE GG Lo-Byte der Adressen der Befehle 


FE95 84 05 C1 ΓΒ 18 SC 
FE9F 07 A3 FO 88 23 OD 
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ΕΣΣΕΝ ΣΧΕΣΗ ΕΧΑΣΕ t Hi-Byte der Adressen der Befehle 


FEA1 ED DO C8 CA CC CB 
FEA7 E2 E7 C8 CA C8 EE 


τ ΔΛ EEE RHEE E A E 
FEAD 51 DD 1C 9E 1C 


REKEN 
FEB2 52 57 41 4D 


KEERRE ERE RN 
ΕΕΒό 44 55 50 55 4C 


KUREN GER 
FEBB 44 53 50 55 32 1. 
FECO 45 45 52 53 45 
FEC5 4C 51 47 52 4C 


KERNE 
FECA 08 00 00 


λα λλλ11111111111111 
FECD 3F 7F BF ΕΕ 


τ E72 7 7 EEE 2 EEEE. 
FED1 11 12 15 15 


EEE ER 
FEDS 41 

ΕΕΡό 04 

FED7 24 

FED8 1F 19 12 


EXEXEERRRREREERREERRERROOEEEE 1111 
FEDB 01 FF FF 01 00 


ΚΑΚΗ ΣΧ ΚΣΕ EERE EERE EREEES 
ΕΕΕΟ 05 04 05 06 07 


ASS SZ EZ EI ET EI EI SEE II 2 A 
FEES 07 OE 


Y*kXXXEXXEXETXXXXXXEXXTXXYXTXEUEX 


FEE7 6C 65 00 JMP ($0065) 
EURE RHEE EEE RE EEEE EE. 
FEEA 8D 00 1C STA $1C00 
FEED 8D 02 1€ STA $1002 
FEFO AC 70 EA JMP $EA7D 
ERREEERRERERR EERE EERE EI EEE EZ 
FEFS BA ΤΧΑ 

FEF4 A2 05 LDX #$05 
FEF&6 CA DEX 

FEF7 DO FD BNE $FEF6 
FEF? AA TAX 


Bytes für Syntaxprüfung 


File-Betriebsarten 
'R', 'W', Α΄. "MI 


Filetypen 
"Wu, CST. pP, U, 'L' 


Namen der Filetypen 


Buchstabe des Filetyps 'D', 'S', 'P', 'U', "RI 
2. Buchstabe " UR. CE". RO. 9. E 
3. Buchstabe . fe He: πα, R EN 


Masken für Bit-Befehl 


Anzahl der Sektoren pro Track 
17, 18, 19, 21 


Konstanten für Diskettenformat 

‘A’ Kennzeichen für 1541-Format 

4 Tracknummern 

36, höchste Tracknummer + 1 

31, 25, 18 Tracks mit Wechsel Anzahl Sektoren 


Steuerbytes für Kopfpositionierung 


Adressen der Pufferspeicher 
High-Bytes 


Vom UI-Befehl 


von der Diagnose-Routine 
LED einschalten 

Port auf Ausgabe 

zurück zur Diagnose-Routine 


Verzögerungsschleife für seriellen Bus 


ca. 40 Mikrosekunden 
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FEFA 60 RTS 


EXEEKXXXEEXEXEEXEXXEEEXXEEEEXEEXEXX. Datenausgabe auf seriellen Bus 
FEFB 20 ΑΕ E? JSR $E9AE CLOCK OUT hi 


FEFE 4C 9C E? JMP $E99C DATA 


OUT lo 


RXXXYdXXXXYEXEXEEXXXXXEEtEKEXEXER UI-Vektor 


FF01 AD 02 02 LDA $0202 


FF04 C9 2D CMP #$2D ee 

FF06 FO 05 BEQ $FFOD 

FFOB 38 SEC 

FFO9  E9 2B SBC 4428 ‘+! 

FFOB DO DA BNE $FEE7 indirekter Sprung über ($65) 
FFOD 85 23 STA $23 

FFOF 60 RTS 


KERNE 
FF10 AA ... 
FFE1 ... AA 


KREIEREN 
FFE2 52 53 52 AA 
FFEG6 Có CB BF F9 


XREREGXE4GXEXREXEEXXX4 USER-Vektoren 


FFEA SF CD UA, U1, $CDSF 

FFEC 97 CD UB, U2, $CD97 

FFEE 00 05 UC, US, $0500 

FFFO 03 05 UD, U4, $0503 

FFF2 06 05 UE, U5, $0506 

FFF4 09 05 UF, US, $0509 

ΕΕΕό 0C 05 UG, U7, 505065 

FFF8 OF 05 UH, U8, $050F 

FFFA 01 FF UI, U9, $FF01 (NMI-Vektor wird nicht benutzt) 
ΝΕΕΣ ΣΧ  Hardware-Vektoren 

FFFC AO EA ΦΕΑΑΟ RESET- und UJ- bzw. U:- Vektor 
FFFE 67 FE $FE67 IRG-Vektor 
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4.1.1 Anzeige sämtlicher Fileparameter 


Dem Directory sind nicht alle Informationen eines Files zu 
entnehmen. Vieleicht standen Sie auch einmal vor dem Problem, 
daß Sie z.B. die Anfangsadresse eines auf Diskette abgelegten 
Frogramms benötigen. Dann kennen Sie sicher auch die 
Umstände, die mit der Ermittlung dieser Anfangsadresse 
verbunden sind. 

Ein weiteres Beispiel ist die Recordlänge eines relativen 
Files. Sie kann nur mit großem Programmieraufwand ermittelt 
werden, wenn sie in Vergessenheit geraten ist. 

Dies sind nur zwei der vielen Fileparameter, die mit dem 
folgendem Programm äußerst einfach ermittelt und angezeigt 
werden können. Die Fileparameter sind natürlich auch vom 
Filetyp abhängig. So kann z.B. einem relativen File keine 
Anfangsadresse zugeordnet werden. Die folgende Tabelle stellt 
die mit diesem Programm ermittelbaren Parameter der einzelnen 
Filetypen dar: 


PARAMETER FILETYP 


File geschlossen? 
File geschützt? 
belegte Blöcke 


Recordlange 
Side-Sector-Blocke 
Datenblöcke 
Records 
Anfangsadresse 


freie Blöcke Disk 
belegte Bl. Disk 


Um einen guten überblick über die Arbeitsweise dieses 
Programms zu erhalten, was wohl im Interesse Jedes 
ernsthaften Programmierers liegt, ist es bis ins letzte 
Detail dokumentiert. Einer übersicht der im Progr amm 
verwendeten Variablen folgt eine zeilenorientierte 
Dokumentation:lnl1 

Im Programm verwendete Variablen: 


numerische Variablen 


T — Track (Spur) des aktuellen Blocks der Fileeinträge im 
Directory 

5 - Sektor des aktuellen Blocks der Fileeinträge im 
Directory 

FL - Flag, das gesetzt wird, wenn die von der Diskette ge- 


lesenen Filenamen zum Auflisten, nicht zum Vergleichen 
mit dem gesuchten File benutzt werden 
TY - Filetyp des angegebenen Files (Byte ο des Eintrags) 
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Halbbyte des Filetyps (Bit O bis 3), enthält den ei- 
gentlichen Filetyp 

Low-Byte einer von der Diskette gelesenen Anfangs- 
adresse 

High-Byte einer von der Diskette gelesenen Anfangs- 
adresse 

Anzahl der vom File belegten Blöcke 

Recordlänge eines realtiven Files 

Track (Spur) des ersten Datenblocks eines Program- 
Files, der die Anfangsadresse enthält 

Sektor des ersten Datenblocks eines Program-Files 
Anfangsadresse eines Frogram-Files 

Anzahl der freien Blöcke auf der Diskette 

Anzahl der belegten Blöcke auf der Diskette 

Anzahl der Side-Sector-Blöcke in einem relativen File 
Anzahl der Records in einem relativen File 


Stringvariablen 


Name des gesuchten Files 

Enthält den aktuellen Filenamen aus der Directory 
Filetyp (Klartext) 

Konstante, die angibt, ob das File geschlosssen ist 
(enthält "JA" oder "NEIN") 

Konstante, die bestimmt, ob das File geschützt ist 
(enthält "JA" oder "NEIN") 

enthält CHR#(18), REVERSE ON 

enthält CHR#(146), REVERSE ΟΕΕ 


Dokumentation des Frogramms: 


110 
120 
210 


300 


540 


600 


620 


640 


Setzt Farbcode des Bildschirms 
200 Progr ammkopf 
2 


30 Abfrage, ob Namen aufgelistet werden sollen. 
Setzt Flag FL auf 1 und führt Routine 280 — 490 
aus. 

270 Eingabe des Filenamens. Fordert erneute Eingabe, 
wenn Filename größer als 16 Zeichen 
490 ließt die Filenamen aus der Directory und gibt 


Sie entwerder aus (FL-1) oder vergleicht sie mit 
dem gesuchten Filenamen 

530 ließt das Byte O (Filetyp) des Fileeintrags des 
gesuchten Files und speichert es in TY. Zusätz- 
lich wird das rechte Halbbyte in FT gespeichert 

390 pruft den Filetyp und speichert dessen Klartext 
in FT$, prüft auf ungültigem Filetyp 

610 prüft das Bit 7 des Filetyp-Bytes (File ge- 
schlossen?) und speichert das Resultat in GE$ 

65ο prüft das Bit 6 des Filetyp-Bytes (File ge- 
schützt?) und speichert das Resultat in SA 

690 ließt die Anzahl der vom File belegten Blöcke 
aus den Bytes 28 und 29 des Eintrags und spei- 
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chert sie in BL 

700 - 730 falls ein relatives File vorliegt, wird hier die 
Recordlänge aus Byte 21 des Eintrags gelesen und 
nach RL gebracht 

740 - 880 falls ein Program-File vorliegt, wird die An- 
fangsadresse des Files aus seinem ersten Daten- 
block ermittelt und in AA abgelegt 

B90 — 980 berechnet die freien Blöcke der Diskette, indem 
das jeweils erste Byte des spurkennzeichnenden 
BAM-Ausschnittes gelesen und in BF aufaddiert 
wird. Die belegten Blöcke werden dann mit 
BB = 644 - BF ermittelt 

990 - 1020 hier wird bei relativen Files mit Hilfe der Re- 
cordlänge (RL) und der vom vom File belegten 
Blöcke die Anzahl der Side-Sector-Blöcke (BS) 
und die Anzahl der Records (RC) errechnet. Da 
für jeweils 120 Blöcke eines relativen Files ein 
Side-Sector-Block gebildet wird, wird die Anzahl 
der Side-Sector-Blöcke mit ES = BL / 121 und der 
Aufrundung auf die nächste ganze Zahl berechnet. 
Die restlichen Blöcke multipliziert mit 254 und 
dividiert mit der Recordlänge ergeben die Anzahl 
der Records im File. , 

1040 - 1230 hier werden die ermittelten Daten wahlweise auf 
dem Bildschirm oder auf dem Drucker ausgegeben. 
Die Fileparameter werden REVERSE angezeigt. 

1240 — 1280 ermöglicht die Farameterausgabe eines weiteren 
Files 


Das Programm wurde auf einem CBM 64 erstellt. Trotzdem ist es 
ohne großartige Änderungen auf dem VC 20 lauffähig. Lediglich 
die Zeile 110, wo die Bildschirmfarbe gesetzt wird, muß dem 
VC 20 angepasst werden. 


BASIC-Listing des Programms: 


100 CLR 

110 POKES3280,2: POKES3281 ,2: PRINTCHR3$ (158) ; CHR$ (147) 5 
120 PRINTTAB(6);"===========================" 

130 FRINTTAB (6) ;"ANZEIGE ALLER FILEPARAMETER" 

140 PRINTTAB (6) ; '"ΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΞΙ 

150 PRINT:PRINT 

160 PRINT"MIT DIESEM PROGRAMM KOENNEN SAEMTLICHE" 
170 FRINT"PARAMETER EINES FILES WAHLWEISE AUF" 
180 PRINT"BILDSCHIRM ODER DRUCKER AUSGEGEBEN WER-" 
190 PRINT"DEN." 

200 PRINT:PRINT 

210 FRINT"FILENAMEN AUFLISTEN (J/N)?" 

220 GETX$: IFX$-""ORX$« >" J" ANDXS< -"N"THEN220 

250 IFX$-"J'"THENFL-1: GOSUB280 

240 FL zo 

250 INPUT"NAME DES FILES: "ett 

260 IFLEN(F$)«-16THEN28O 

270 PRINT"FILENAME ZU LANG'":6GOTO250 

280 OPEN15,8,15," IO": 0OPEN2,8,2, "4t" 

290 T=18:5=1 
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300 
310 
320 
325 
330 
340 
350 
56ο 
370 
580 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
485 
490 
900 
310 
520 
930 
940 
550 
560 
370 
580 
390 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 


PRINT415,"B-R":2;05 T;S 
PRINT#15, "B-P"; 2:0 

GET42,X$: IFX#=""THENX#=CHR$S (O) 
T=ASC (X$) 

GET#2,X$: IFX$=""THENX$=CHRE (0) 
S=ASC (X$) 

FORX-0TO7 
PRINT415,"B-P";2; XX3245 

FF$-"" 

FORY=0T015 
GET#2,X#: IFX$="" THENX$=CHR$ (O) 
IFASC (X#) 2160THENA430 
FF$=FF$+X$ 

NEXT Y 

IFF$=FF$THEN490 

IFFLTHENPRINT FF$ 

NEXT X 

IF T=O THEN480 

GOTO300 

CLOSE2:CLOSE15 
IFFL-OTHENFRINT"FILENAME NICHT GEFUNDEN! ":GOTO210 
IFFL THEN RETURN 
PRINT415,"B-P":25; X*3242 
GET#2,X$: IFX$="" THENX$=CHR$ (O) 
TY-ASC (X$) 

FT=TYAND15 
IFFT=OTHENFT$="DELETED" 
IFFT=1THENFT$="SEQUENTIAL" 
IFFT-2THENFT$-"PROGRAM" 
IFFT-3THENFT$-"USER" 
IFFT=4THENFT$="RELATIVE" 
IFFT>4THENPRINT"UNGUELTIGER FILETYP!":GOTO200 
IFTYAND128THENGE$=" JA": GOTO620 


GE$-"NEIN" 
IFTYAND464 THENSAS="JA": GOTO640 
SAS="NEIN" 


PRINT#15,"B-P"2,X*32+30 
GET#2,X$: IFX$="" THENX$=CHR$ (O) 
LB=ASC (X$) 

GET#2,X$: IFX$=""THENX$=CHR$ (0) 
HB=ASC (X$) #256 

BL=LB+HB 

IFFT< >4THEN740 
PRINT#15,"B-P"325X*32+23 
GET#2, X#: IFX#="" THENX$=CHR$ (O) 
RL=ASC (X$) 

IFFT« »2THEN890 
PRINT415,"B-P";25; X*X3243 
GET42,X$: IFX$-""THENX$-CHR$ (O) 
DT-ASC (X$) 

GET#2,X$: IFX$-""THENX$-CHR$ (O) 
DS=ASC (X$) 

OPENS,8,3,"4" 
PRINT415,"B-R"; 350; DT; DS 
PRINT#15,"B-P"33;2 

GET#3 ,X$: IFX$="" THENX$=CHR$ (O) 
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840 LB=ASC (X$) 

850 GET#3,X$: IFX$=""THENX$=CHR$ (0) 

860 HB=ASC (X$) #256 

870 AA=LB+HB 

880 CLOSES 

890 PRINT415,"B-R"52;0;1850 

900 BF-O 

910 FORI-ATO140STEPA 

920 IFI-72THEN960 

930 PRINT415,"B-P";2;I 

940 GET#2,X$: IFX$=""THENX$=CHR$ (O) 

950 BF=ASC (X$) +BF 

960 NEXT 

980 BB-644-BF 

990 IFFT<>4THEN1040 

1010 BS-BL/121: IFBS« »INT (BS) THENBS=INT (BS+1) 
1020 RC=INT(( (BL-BS) *254) /RL) 

1040 PRINTCHR£(147);"BILDSCHIRM ODER DRUCKER (B/D)?" 
1050 GETX#: IFX$=""ORX$< »"B"ANDX$« >"D" THEN1050 
1060 RE$=CHR$ (18) :RA$=CHR$ (146) 

1070 IFX$="B"THENOPEN1 , 3: PRINT#1 ,CHR# (147) 
1080 IFX$="D"THENOPEN1 , A 


1090 PRINT#1,"PARAMETER DES FILES ne RE$; F$; ROS 

1100 PRINT#L,"----------------------- - " 

111O PRINT#1,"FILETYP: "SsRES;FT$; RAS: PRINT4H 
1120 PRINT#1,"FILE GESCHLOSSEN: "s RES: GE$; RAS: PRINT#1 
1130 PRINT#1,"FILE GESCHUETZT: "s RES; SAS; RAS: PRINT#1 
1140 PRINT#1,"BELEGTE BLOECKE: "s RE; BL; RAS: PRINT#1 
1150 IFFT<>4THEN1200 

1160 PRINT#1, "RECORDLAENGE: "sRE$;RL;RAS:PRINT#1 
1170 PRINT#1,"SIDE-SECTOR BLOECKE: "sRE$; BS; RA$: PRINT#1 
1180 PRINT#1,"DATENBLOECKE: "sRE$; BL-BS; RAS: PRINT#1 
1190 PRINT#1, "RECORDS: "sRE$:RC;RA$:PRINT#1 
1200 IFFT=2THEN PRINT#1, "ANFANGSADRESSE: 
"s RES; AAs RAS: PRINTS 1 

1210 PRINT#1,"FREIE BLOECKE (DISK): “;RE#:BF;RA#:PRINT#1 


1220 PRINT#1,"BELEGTE BLOECKE (DISK): "53;RE#; BB; RAt:PRINT#1 
1230 CLOSE1 

1240 FRINT"WEITER (J/N) ?" 

1250 CLOSE2:CLOSE15 

1260 GETX$: IFX$-""ORX$«2"J'"AND X#<>"N" THEN1 260 

1270 IF X$="J"THEN100 

1280 END 
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4.1.2 Scratch-Schutz von Files - Fileprotect 


Wie bereits erwähnt, besteht die Möglichkeit Files auf der VC 
1541-Diskette zu schützen und sie auch im Directory als 
geschützt auszuweisen. Im Byte O des Fileeintrags ist der 
Filetyp enthalten. Das Bit 6, also das Bit mit der dezimalen 
Wertigkeit 64 kennzeichnet ein geschütztes File. Ist dieses 
Bit 1, so kann das File nicht mehr mit dem Befehl "SCRATCH’ 
gelöscht werden. Da das DOS aber keinen Befehl zum Setzen 
dieses Bits beinhaltet, ist dazu eine BASIC-Befehlsfolge 
erforderlich. 

Mit dem folgenden Programm können Sie: 


* alle Files der eingelegten Diskette auf dem Bildschirm 
anzeigen, 

* Files schützen 

* Files freigeben 

* Files löschen 


Es können sowohl ungeschützte als auch geschützte Files 
gelöscht werden. Bei geschützten Files muß der Wunsch des 
Löschens zusätzlich bestätigt werden. 

Auch dieses Programm ist mit einer Variablentabelle und einer 
zeilenorientierten Beschreibung ausreichend dokumentiert, 
sodaß Sie die eine oder andere Befehlsfolge auch in Ihren 
eigenen Frogrammen verwenden können. 


Liste der Variablen: 


GF - Flag, daß in der Routine "lesen/suchen von Files" 
gesetzt wird, falls der gesuchte Filename gefunden 
wird 

FL — wird gesetzt, wenn die Routine "lesen/suchen von 
Files nur zum auflisten aller Files benutzt wird 

FT - Variable zur Speicherung des Filetyps 

T - Track (Spur) des aktuellen Blocks der Fileeinträge 

5 - Sektor des aktuellen Blocks der Fileeinträge 

TT — Track, in dem sich der Fileeintragsblock des ge- 
suchten Files befindet 

ss - Sektor, in dem sich der Fileeintragsblock des gesuch- 
ten Files befindet 

ΕΕΣ - zuletzt gelesener Filename aus der Directory 

F$ - eingegebener, gesuchter Filename 


Dokumentation des Programms: 


100 Setzen der Bildschirmfarbe 
110 — 230 Programmkopf und Auswahlmenü 
240 — 260 Lesen der  Menüauswahl und Aufruf des ent- 
sprechenden Unterprogramms 
270 Zurück zum Auswahlmenü 
280 - 350 Unterprogramm "auflisten aller Files" 
310 Bildschirm löschen 
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320 


350 
260 — 600 
3590 
400 
410-450 
460-480 
490-500 
310 
320-9550 
560 
370-600 
610 - 850 
640 
650 
660-700 
710-730 
740-750 
760 
770-800 
810 
820-850 
860 — 1170 
890 
700 
710-950 
960-980 
990 
1000-1030 
1040-1060 
1070 
1080-1110 
1120 
1130 
1140-1170 
1190 -1560 
1220 
1230-1240 
1250-1320 


setzen Flag FL zum Auflisten der Files im 
Unterprogramm "lesen/suchen von Files" 
Zurücksetzen des Flags und Rücksprung 
Unterprogramm "schützen von Files" 

Aufrufen Unterprogramm "Eingabe des Filena- 
mens 

Aufrufen des Unterprogramms  "lesen/suchen 
von Files" 

Mit Hilfe von Flag GF testen, ob Filename 
gefunden wurde 

lesen Filetyp und speichern in FT 

Testen, ob Files bereits geschützt ist 

File schützen (Bit é auf 1) 

übertragen des Filetyps in den Buffer und 
schreiben des Blocks auf Diskette 

Schließen der Kanäle 

Meldung "File geschützt" und Rücksprung 
Unterprogramm "Freigeben von Files" 

Aufrufen Unterprogramm "Eingabe des Filena- 
mens 

Aufrufen Unterprogramm "lesen /suchen von 
Files" 

Testen, ob Filename gefunden wurde 

Filetyp lesen und in FT speichern 

Testen, ob File bereits freigegeben ist 
Freigeben des Files (Bit & auf O) 

übertragen des Filetyps in den Buffer und 
schreiben des Blocks auf Diskette 

Schließen der Files 

Beenden des Unterprogramms 

Unterprogramm "löschen eines Files" 

Aufrufen Unterprogramm "Eingabe des Filena- 
mens 

Aufrufen des Unterprogramms  "lesen/suchen 
von Files" 

Testen, ob Filename gefunden wurde 

Lesen des Filetyps und speichern in FT 
Testen, ob File geschützt 

Hinweis, daß File geschützt ist, mit der 
Möglichkeit, trotzdem zu löschen 

Frage, ob File wirklich gelöscht werden soll 
Bit ὁ zurücksetzen, wenn geschützt 
übertragen des .Filetyps in den Buffer und 
schreiben des Blocks auf Diskette 
Initialisieren der Diskette 

Löschen des Files 

Beenden des Unterprogramms 

Unterprogramm "lesen/suchen von Files" 
öffnen des Befehls- und Datenkanals 
Directory lesen und Bufferpointer setzen 
Testen, ob die Diskette einen  Schreibschutz 
enthält. Dazu wird die Directory wieder un- 
verändert zurückgeschrieben (Zeile 1250). 
Befindet sich ein Schreibschutz auf der 
Diskette, so wird die Fehlermeldung 26,WRITE 
PROTECT ON gesetzt. 
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1330 Anfangswerte der Variablen für Spur und Sek- 


tor setzen 


1340-1350 Lesen des Fileeintrag-Blocks und Positionie- 
ren des Buffer-Fointers auf das erste Byte 
1360-1390 Lesen der Adresse des nächsten Fileeintrag- 


blocks 
1400-1530 Schleife zum Lesen der Filenamen. 


BASIC-Listing des Programms: 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 
260 
270 
280 
290 
300 
510 
520 
550 
540 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 


POKES3280 , 2: POKES3281 , 2: PRINTCHR# (158) sS CHR# (147) 5 


FRINTTAB (4) e "================================" 
PRINTTAB (4); "LOESCHEN UND SCHUETZEN VON FILES" 
PRINTTAB (4) - "k ==============================:=='t 
PRINT: PRINT 

FRINT"MIT DIESEM FROGRAMM KOENNEN FILES GE-" 
PRINT"SCHUETZT, GELOESCHT UND FREIGEGEBEN " 
FRINT"WERDEN. " 

PRINT: PRINT 

PRINTTAB(6) 3" -1- AUFLISTEN ALLER FILES":FRINT 
FRINTTAB (6) ;" —2— SCHUETZEN EINES FILES":PRINT 
PRINTTAB(6);" -3- FREIGEBEN EINES FILES":PRINT 
PRINTTAB(6);" -4- LOESCHEN EINES FILES":PRINT 
FRINTTAB(6);" -5- BEENDEN DES PROGRAMMS": PRINT 
GETX$: IFX$-""ORVAL (X$) < 10RVAL (X$) >STHEN240 
IFVAL (X$) =STHENEND 

ONVAL (X$) GOSUB280 , 360,610,860 

GOTO100 

REM —————— F 


REM == Feen 
PRINTCHR$ (147) 

FL=1:GOSUB1190 

PRINT: PRINT"“WEITER MIT RETURN" 
INPUTX$ 

FL=0: RETURN 

REM πε ne 


REM Fern 
GOSUB1580 

GOSUB1190 

IFGF= 1 THEN460 

PRINT"FILE NICHT GEFUNDEN! ":PRINT 
PRINT"WEITER MIT RETURN!" 
INPUTX$:CLOSE2: CLOSE15 

RETURN 
PRINT#15,"B-P"; 23 X*32+2 
GET#2,X$: IFX$="" THENX$=CHRS (0) 
FT=ASC (X#) 

IF CFT AND 64) =OTHENS10 
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Die Namen 
werden dann, je nach Inhalt von Flag FL, 
entweder auf dem Bildschirm aufgelistet, 
oder mit dem gesuchten Filenamen verglichen 

1540-1560 Wenn die Variable T (Track) eine Null ent- 
hält, so folgt kein weiterer Fileeintrag- 
Block und das Unterprogramm wird beendet 


500 PRINT"FILE IST BEREITS GESCHUETZT!":PRINT: GOTO430 
510 FT=(FT OR 64) 

520 PRINT415,"B-P"5 23 X*3242 

530 PRINT42,CHR$ (FT) ; 

540 PRINT415,"B-P"525;0 

550 PRINT415,"U2"52;505 TT; S8 

S60 CLOSE2:CLOSE1S 

570 PRINT"FILE GESCHUETZT!" 

580 PRINT"WEITER MIT RETURN!" 

590 INPUTX$ 

600 CLOSE2:CLOSE15: RETURN 

610 REM —--------------------- 

620 REM FREIGEBEN EINES FILES 

630 REM —--------------------- 

640 GOSUB1580 

650 GOSUB1190 

660 IFGF= 1 THEN710 

670 PRINT"FILE NICHT GEFUNDEN! ms PRINT 
680 PRINT"WEITER MIT RETURN!" 

690 INPUTX$:CLOSE2: CLOSE15 

700 RETURN 

710 PRINT415,"B-P"5 25 X*3242 

720 GET#2,X#: IFX$-""THENX$-CHR$ (O) 

730 FT=ASC (X$) 

740 IF(FT AND 64)=64 THEN760 

750 PRINT"FILE IST BEREITS FREIGEGEBEN! ": PRINT: GOTO^BO 
760 FT=(FT AND 255-64) 

770 PRINT415,"B-P"525 XX3242 

780 PRINT42,CHR$ (FT) ; 

790 PRINT415,"B-P"52;0 

800 PRINT415,"U2": 250; TT; SS 

810 CLOSE2:CLOSE15 

820 PRINT"FILE FREIGEGEBEN!" 

830 PRINT"WEITER MIT RETURN!" 

840 INPUTX$ 

850 RETURN 

860 REM --------------------- 

870 REM LOESCHEN EINES FILES 

880 REM --------------------- 

890 GOSUB1580 

900 GOSUB1190 

910 IFGF- 1 THEN960 

920 PRINT"FILE NICHT GEFUNDEN! ": PRINT 
930 PRINT"WEITER MIT RETURN!" 

940 INPUTX$:CLOSE2:CLOSE15 

950 RETURN 

960 PRINTS15,"B-P":25 X*3242 

970 GET#2,X$: IFX$="" THENX$-CHR$ (0) 

980 FT=ASC (X$) 

990 IF(FT AND 64) -OTHEN1040 

1000 PRINT"ACHTUNG' FILE IST GESCHUETZT!" 
1010 PRINT"FREIGEBEN UND LOESCHEN (J/N)?" 
1020 GETX$: IFX$-""ORX$« »"N"ANDX$« »"J"THEN1020 
1030 IFX$="N"THEN1170 

1040 PRINT"SICHER (J/N)?" 

1050 GETX$: IFX$-" "ORX$« »"N"ANDX$«»"J" THEN1050 
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1060 IFX$="N"THEN1170 
1070 FT=(FT AND 255-64) 

1080 PRINT415,"B-P";2:X*3242 

1090 PRINT42,UHR£ (FT); 

1100 PRINT415,"B-F";:2:0 

1110 PRINT415,"U2";2:0; TT; SS 

1120 PRINT415,"IO" 

1130 PRINT#15,"S: "ES 

1140 PRINT"FILE GELOESCHT ! " 

1150 FRINT"WEITER MIT RETURN!" 

1160 INPUTX$ 

1170 CLOSE2:CLOSE15: RETURN 

1180 REM 

1190 REM ------------------------ 
1200 REM LESEN / SUCHEN VON FILES 
1210 REM ------------------------ 
1220 O0PEN15,8,15,"IO":0PEN2,8,2, "4" 
1230 PRINT#15,"B-R":230:18;0 

1240 FRINT#15,"B-P":2:0 

1250 PRINT#15,"U2"523051850 

1260 INPUT#15,X1$ 

1270 IFVAL (X1$) < >26THEN1 330 | 
1280 PRINT"BITTE VOR BENUTZUNG DIESES PROGRAMMS DEN"; 
1290 PRINT"SCHREIBSCHUTZ ENTFERNEN!" . 
1300 FRINT"WEITER MIT RETURN!" 

1310 INPUTX$ 

1320 CLOSE2:CLOSE1S:RETURN 

1330 T=18:S=1:TT=18:SS=1 

1340 PRINT415,"B-R":2;05; T;S 

1350 PRINT415,"B-P"s2;0 

1360 GET#2,X$: IFX$-""THENX$-CHR$ (0) 

1370 T-ASC(X$):IF T<>OTHENTT=T 

1380 GET#2,X$: IFX$-""THENX$-CHR$ (O) 

1390 S=ASC (NEI: IFS< >255THENSS=S 

1400 FORX=0T07 

1410 PRINT415,"B-P";2; X43242 

1420 GET42,X$: IFX$=""THENX$=CHR$ (0) 

1430 IFASC (X$) ΞΟΤΗΕΝΙ 550 

1440 FRINT415,"B-P":2; X#32+5 

1450 FF$z"" 

1460 FORY=0T015 

1470 GET42,X$: IFX$-" "THENX$-CHR$ (0) 

1480 IFASC(X$)-160THEN 1500 

1490 FF$-FF$4X$ 

1500 NEXTY 

1510 IFFLTHENPRINTFF$: GOTO15:30 

1520 IFF$-FF$THENGF-1:6G0T01570 

1530 NEXTX 

1540 IFT«»OTHEN1340 

1550 CLOSE2:CLOSE15 

1560 IF FL-OTHENPRINT"FILENAME NICHT GEFUNDEN! " 
: FORI=1T02000: NEXT 

1570 RETURN 

1580 REM ---------------------- 

1590 REM EINGABE DES FILENAMENS 

1600 REM ——-------------------- 
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1610 PRINT: FRINT 

1620 INPUT"NAME DES FILES: "setz 

1630 IFLEN(F$)«-16THEN16350 

1640 FRINT"FILENAME ZU LANG!":GOT01620 
1650 GF=0:FL=0 

1660 RETURN 


Dieses Dienstprogramm wurde auf einem CBM 64 erstellt. Es ist 
jedoch in dieser Version auch auf dem VC 20 lauffähig. Dazu 
muß lediglich die Zeile 100, die beim CBM 64 die 
Bildschirmfarben setzt, entsprechend angepasst oder ignoriert 
werden. Wenn Sie Wert auf eine optisch einwandfreie 
Bildschirmausgabe legen, können Sie die Zeilen 110-230 der VC 
20-Bildschirmdarstellung anpassen. 
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4.1.3 Backup-Frogramm — Kopieren von Disketten 


Die Floppy VC 1541 hat als Einzellaufwerk nicht die 
Möglichkeit, selbstständig Disketten zu duplizieren, wie dies 
die Doppellaufwerke mit dem Befehl 'Duplicate' bzw. ‘BACKUP’ 
in BASIC 4.0 bieten. Bei der 1541 muß dies per Frogramm über 
den Rechner gemacht werden. 


Das Frinzip sieht so aus: 

Zuerst werden die BAM sowie Namen und ID der zu kopierenden 
Diskette gelesen. Aus der BAM ermittelt man nun, welche 
Blocks auf der Originaldiskette belegt sind. Aus Gründen der 
Zeitersparnis sollen nur die belegten Blocks kopiert werden. 
Dann wird eine Direktzugriffsdatei eröffnet von der von den 
ersten 169 Sektoren (soviel wie in etwa in den Speicher des 
Commodore &4 passen) die belegten gelesen. Dann wird der 
Benutzer aufgefordert, eine neue Diskette ins Laufwerk zu 
legen. Diese wird nun mit dem Namen und der ID der 
Originaldiskette formatiert. Jetzt werden die zuvor gelesenen 
Blocks aus dem Speicher auf die neue Diskette geschrieben. 
Nun können die nächsten 169 Blocks der Originaldiskette 
geprüft und bei Bedarf in den Speicher gelesen und 
anschließend auf die Zieldiskette geschrieben werden. Dies 
läuft insgesamt viermal ab, bis die komplette Diskette 
kopiert ist. 


Das Frogramm ist bis auf das Lesen und Schreiben der 
Direktzugriffsdatei in BASIC geschrieben. Die dafür 
enthaltenen Maschinenprogramme sind bedeutend schneller als 
eine GETS-Schleife über 256 Bytes in BASIC. Da die 
Effektivität des Programms, die Anzahl der Diskettenwechsel, 
vom zur Verfügung stehenden freien Speicher des Rechners 
abhängt, ist es nur für den Commodore 64 gedacht. Selbst bei 
einem VC 20 mit 16 K Erweiterung wären je elfmaliger Wechsel 
von Original— und Zieldiskette erforderlich. 


Hier noch ein ungefährer Zeitvergleich zwischen diesem 
Frogramm und dem Duplizieren auf einem Doppellaufwerk mit der 
gleichen Kapazität. Unser Frogr amm braucht je nach 


Diskettenbelegung ca. ZO Minuten, die CBM 4040 schaffts in 
ca. 3 Minuten. 


Die Duplizieren von Disketten mit diesem Programm verläuft 
denkbar einfach: Sie brauchen nach dem Starten lediglich nach 
den Anweisungen auf dem Bildschirm jeweils die Original- oder 
die Zieldiskette einzulegen, den Rest erledigt das Programm 
für Sie. 


100 REM BACKUF-PROGRAMM C44 - VC 1541 
110 REM 

120 POKES6,23: CLR: GOSUB640 

130 OPEN1,8,15 

140 DIM B4 (35,23) ,5%(35) ,2 072 ,A$(1) 
150 4$(0)-"ZIEL":4$(1)-"ORIGINAL ":R-1 
160 AD=23*256: GOSUBS90 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
220 
3350 
940 


390 
360 
370 
380 
390 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


POKE250 ,O: POKE251,AD/256 

GOSUB530: GOSUB290 

PRINTNS"BLOCKS ZU KOPIEREN":PRINT 
T=1:S=0 
FORI=1T04: TT=T: SS=S: R=1: IFI=1 THEN240 
IFR=OAND I=1 THENGOSUB450: GOTO240 
5ΌΞΙΙΒΞΘΟ 

FOKE251 ,AD/256: FORJ=1T0169 

IFBX(T,8) =OTHENGOSUBS70 

S=5+1: IFS=S%(T) THENT=T+1 : 8-20: IFT=S364THENJ=169 
NEXT: IFRTHENR-O: T=TT: S=SS: GOTO220 
NEXT: GOTO510 

T=18: 5-0: GOSUB570 

NS=0: FOR T=1T035 : S-0 
NS=NS+SZ (T) -PEEK (AD+4#T) 

FORJ=1T03 

B=PEEK (AD+4#T+J) 

FORI=0T07 

BZ(T,S)=B AND Z(1):S=S+1 

NEXT I,J 

FOR S=S%(T) TO23 

B~(T,S)=-1 : NEXT S,T 

FOR I=0T015 

A=PEEK (AD+144+1) 

IFA< »160THENN$-N$-CHR$ (A) 

NEXT 

I$=CHR$ (PEEK (AD+162) ) +CHR$ (PEEK (AD+163) ) 
PRINTN$ , I$: RETURN 

FRINT"BITTE NEUE DISKETTE EINLEGEN" 


FRINT"UND RETURN DRUECKEN '":PRINT:POKE198,0:CLOSE2 


GETA$: IFA$« »CHR$ (13) THENA70 
PRINTS1,"NO: "N$","I$ 


INPUTS1,A,B$,C,D: IFATHENPRINTA" ,"EB$" ,"C", "D: END 


GOTO6 SO 
CLOSE2: CLOSE 1 : END 

REM SEKTOREN PRO TRACK 
FORT=1T035 


S% (T)=21: IFT>17THENSZ (OT) =19: IFT224THENSZ CT) 218: 


IFT-SOTHENSZ(T)-717 

NEXT 

FORI=0T07:Z (1) =27*1: NEXT: RETURN 
IFRTHENPRINTS1,"U1 2 ON T3S:SYSIN: RETURN 


PRINTS1,"B-P 2 O":SYSOUT:PRINTS1,"U2 2 O"T;S:RETURN 


CLOSE2:PRINT"BITTE “A#(R) "DISKETTE EINLEGEN" 
PRINT"UND RETURN DRUECKEN '":PRINT:POKE198,0 
GETA$: IFA$< >CHR$ (13) THEN610 

PRINTS1,"IO 

OPEN2,8,2," S": RETURN 


FOR I = 828 TO 875 : REM MASCHINENPROGRAMM LESEN 


READ X : POKE Ι.Χ =: S=S+X : NEXT 


DATA 162, 2, 32,198,255,160, 0, 32,207,255,145,250 


DATA 200,208,248,230,251, 32,204,255, 96,198, 


1,162 


DATA 2, 32,201,255,160, 0,177,250, 32,210,255,200 


DATA 208,248,230,251, 32,204,255,230, 1, 96 
IF S <> 7312 THEN PRINT "FEHLER IN DATAS ''" 
IN-828: OUT=849: RETURN 
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END 


4.1.4 Kopieren einzelner Files auf eine andere Diskette 


Das nachfolgende Frogramm erlaubt es Ihnen, einzelne Dateien 
von einer Diskette auf eine andere Diskette zu kopieren. Bei 
den Dateien kann es sich um Programme (PRG), sequentielle 
Dateien (SEQ) oder Userdateien (USR) handeln. Relative 
Dateien lassen sich mit diesem Programm nicht kopieren; 
können jedoch mit einem BASIC-Programm, daß alle Datensätze 
in ein Stringarray liest und von dort wieder in eine neue 
Datei schreibt, kopiert werden. 


Das Frogramm liest im ersten Gang die komplette Datei in den 
Speicher des Commodore 64. Dann wird die Zieldiskette 
eingelegt und dort eine Datei mit gleichem Namen eröffnet. 
Dann werden die kompletten Daten auf die zweite Diskette 
geschrieben. Zum Datenspeichern stehen im Rechner 49 KByte 
zur Verfügung: Sie können deshalb Dateien mit bis zu 196 
Blocks auf Diskette verarbeiten. 


Aus Geschwindigkeitsgründen wurde das Einlesen und Zurück- 
schreiben der Daten mit einem kleinen Maschinenprogramm 
erledigt, das in DATA-Statements abgelegt ist. 


Das Frogramm eignet sich außer zum Kopieren von sequentiellen 
Dateien wie gesagt auch zum Kopieren von Programmen aller 
Art; die Startadresse (bei Maschinenprogrammen) ist dabei 
nicht relevant. 


Bei der Bedienung des Frogramms brauchen Sie sich nur an die 
Anweisungen zu halten und die entsprechenden Disketten 
einlegen. 


100 REM FILE-KOPIERPROGRAMM C64 

110 REM 

120 POKE 56,12 : CLR 

130 GOSUB 1000 

140 INPUT "DATEINAME ";N$ 

150 PRINT "DATEITYP "3 

160 GETT#: IFT$< >"S"ANDT$< »"P"ANDT$« >"U" THEN160 
170 PRINTT$:PRINT 

180 PRINT"BITTE ORIGINALDISKETTE EINLEGEN" 
190 PRINT"UND TASTE DRUECKEN !":PRINT 

200 GETA$:IFA$-""THEN2OO 

210 OPEN 2,8,2,N$+","+T$ 

220 POKES,0:FOKE4, 12: SYS866 

230 CLOSE? 

240 PRINT"BITTE ZIELDISKETTE EINLEGEN " 
250 PRINT"UND TASTE DRUECKEN !":PRINT 

260 GETA$: IFA$-""THEN260 

270 OPEN 2,8,2,N$t+", "+T$+" ,W" 

280 POKES,0:POKE4, 12:SYS828 

290 CLOSE 2 :END 
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1000 FOR I = 828 TO 898 

1010 READ X : POKE I,X : S=S+X : NEXT 

1020 DATA 162, 2, 32,201,255,198, 1,160, O, 56,165, 3 
1030 DATA 229, 5,165, 4,229, 6,176, 13,177, 3, 32,210 
1040 DATA 255,230, 3,208,236,230, 4,208,232,230, 1, 76 
1050 DATA 204,255,162, 2, 32,198,255,160, O, 32,207,255 
1060 DATA 145, 3,230, 3,208, 2,230, 4, 36,144, 80,241 
1070 DATA 165, 3,133, 5,165, 4,133, 6, 76,204,255 
1080 IF S <> 8634 THEN PRINT "FEHLER IN DATAS ''" : END 
1090 RETURN 
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4.1.5 Einlesen des Directorys innerhalb von Programmen 


Es gibt Anwendungsprogramme, die benutzereigene Dateien unter 
einem beliebigen Namen abspeichern. Wenn Sie zum Arbeiten mit 
dieser Datei deren Namen angeben müssen, der Name Ihnen aber 
entfallen ist, so ergibt sich ein Problem: Zum Auffinden 
dieses Namens müssen Sie das Frogramm verlassen, den Namen im 
Directory suchen und das Programm neu laden und starten. 
Diese Prozedur läßt sich durch Integrieierung einer 
Directory-Auflistroutine in das Programm vermeiden. Ist Ihnen 
dann ein Dateiname entfallen, so können Sie, z.B. mit einer 
Funktinstaste, das Directory auf dem Bildschirm ausgeben, 
ohne daß das Frogramm verlassen werden muß. Wir haben eine 
dementsprechende Routine entwickelt, dessen Listing nun 
folgt: 


100 PRINTCHR$ (147); 
110 OPEN15,8,15,"10":0PEN2,8,2, "#" 
120 T=18:S=1 

130 PRINT#15,"B-R";2;0;T;S 

140 PRINT#15,"B-P";2:0 

150 GET#2, X$: IFX$=""THENX$=CHR$ (O) 
160 T=ASC (X$) 

170 GET#2,X$: IFX$=""THENX$=CHR$ (O) 
180 S=ASC (xs) 

190 FORX=0T07 

200 PRINT415,"B-P":25; X*3245 

210 FF$-"" 

220 FORY=0T015 

230 GET#2,X$: IFX$-" " THENX$-CHR$ (O) 
240 IFASC(X$)=160THEN 270 

250 FF$=FF$+X$ 

260 NEXTY 

270 IFA-OTHENA-1:PRINTFF$; : GOTO290 
280 A-O:PRINTTAB(20) ;FF$ 

290 NEXTX 

300 IFT«.OTHEN13O 

310 CLOSE1:CLOSE2 

320 PRINT"WEITER MIT RETURN!" 

330 GETX$ 

340 END:REM WENN UNTERPROGRAMM, DANN RETURN 


Nach Selektieren der Filenamen aus dem Directory werden diese 
auf dem Bildschirm ausgegeben. Soll dieses Programm als 
Unerprogramm benutzt werden, daß mit GOSUB aufgerufen wird, 
so muß in Zeile 340 anstatt des Befehls END der Befehl RETURN 
eingesetzt werden. 

Diese Routine haben wir auch in den Dienstprogrammen in den 
Kapiteln 4.1.1 und 4.1.2 verwendet. 


4.2 Die Dienstprogramme der Test/Demo-Diskette 


Es gibt viele VC-5141 Besitzer, die mit den auf der 
Test/Demo-Diskette enthaltenen Programmen wenig anzufangen 
wissen. Der Grund dafür ist, daß diese Programme entweder in 
englischer Sprache selbstdokumentierend oder aber sogar 
gänzlich undokumentiert sind. Die folgenden Beschreibungen 
dieser Frogramme soll Ihnen weiterhelfen: 


4.2.1 DOS 5.1 


Das DOS 5.1 vereinfacht die Handhabung des VC-1541 DOS. Es 
ist auf den Rechnern VC-20 und COMMODORE 64 einsetzbar. Zum 
Laden des DOS 5.1 mit dem VC-ZO geben Sie die Befehle 


LOAD"VIC-20 WEDGE",8 
RUN 


ein. Dies ist das Ladeprogramm des DOS 5.1 für den VC-20. 
Wollen Sie das DOS 5.1 auf dem COMMODORE 64 betreiben, so 
geben Sie die Befehle 


LOAD"C-64 WEDGE",8 
RUN 


ein. Hiermit wird das DOS 5.1 in den CBM 64 geladen. 

Doch was bietet nun dieses DOS 5.1? Sie können die am meisten 
benötigten Befehle mit Symbolen Abkürzen. Wollen Sie z.B. das 
Directoy auf dem Bildschirm anzeigen, so geben Sie den DOS 
5.1-Befehl "Ze: oder "zë ein. Hier wird auch nicht das im 
Speicher befindliche Programm gelöscht. 


Die einzelnen Befehle des DOS 5.1: 


Schreibweise Funktion 
3$ oder >$ Das Directory wird angezeigt 
ἂν oder >V Selbe Funktion wie "VALIDATE" 
@C:... oder 20:.. Kopieren von Files (COPY) 
Tile oder /file Laden von Programmen 
d oder » Fehlerkanal abfragen und anzeigen 
JN:... oder >N:... Formatieren einer Diskette 
aI oder >I Initialisieren der Diskette 
2... Oder >R:... Umbenennen eines File (RENAME) 


às:... oder >5:... Löschen eines Files (SCRATCH) 


4.2.2 COPY/ALL 
Mit dem Programm "COPY/ALL" können Files zwischen zwei 


Laufwerken verschiedener Adressen ausgetauscht werden. Dazu 
muß ein Laufwerk z.B. mit dem Programm "DISK ADDR CHANGE" auf 
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eine andere Geräteadresse als 8 umgestellt werden. Nach dem 
Starten des Programms erscheint die Meldung: 


disk copy all jim butterfield 


from unit? 8 


auf dem Bildschirm. Hier geben Sie die Geräteadresse der 
Diskettenstation an, von dem Sie die Files herunterholen 
möchten. Ist dies die Adresse B, so drücken Sie nur RETURN. 
Anschließend geben Sie das entsprechende Laufwerk dieser 
Diskettenstion an (bei Einzellaufwerken immer O). Auf diese 
Wiese stellen Sie auch die Geräteadresse des Ziellaufwerkes 
ein. Ist dies geschehen, so fragt das Programm 


want to new the output disk 
?n 


Es wird gefragt, ob die Zieldiskette noch formatiert werden 
soll. Sie antworten hier mit "wi (ja) oder "ni (nein). 

Dann können Sie die zu kopierende Files mit dem Joker  (*) 
auswählen. Sollen alle Files kopiert werden, so geben Sie 
nurt den Stern ein. 

Nun gibt das Programm die Anweisung 


hold down 'y' or 'n' key to select 


Das Programm zeigt nun die Files der Originaldiskette an, die 


Sie dann mit der Taste "wi (ja) oder "ni (nein) auswählen 
können. Die Files, bei der Sie ‘y’ gedrückt haben, werden 
kopiert. 


Erscheinen während dem Kopiervorgang Sterne (##*) hinter den 
Files, so bedeutet das, daß dieser Kopiervorgang nicht 
fehlerfrei verlief. 

Können nicht alle Files auf die Zieldiskette untergebracht 
werden, so wird "*## output disk full" und "do you have a new 
one" gemeldet. Die restlichen Files können auf eine andere, 
formatierte Diskette untergrbracht werden, in dem Sie nach 
der Frage 'y' eingeben. 

Nach Abschluß des Kopiervorgangs wird die Anzahl der freien 
Blocks der Zieldiskette angezeigt. 


4.1.3 DISK ADRR CHANGE 


Mit diesem Programm können Laufwerke softwaremäßig auf eine 
andere Geräteadresse eingestellt werden (4-15). Nach Starten 
des Frogramms schalten Sie alle angeschlossenen Laufwerke, 
außer dem zu ändernden Laufwerk aus. Nun geben Sie die alte 
und anschließend die neu Geräteadresse ein. 

Danach wird die Adresse umgestellt und alle anderen Laufwerke 
können wieder eingeschaltet werden. 

Folgende Laufwerke von diesem Programm umgestellt werden: 
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2031 DOS V2.6 
2040 DOS V1.1 
4040 DOS V2.1 
4040 DOS V2.7 
8050 DOS V2.5 
8050 DOS V2.7 
8250 DOS V2.7 


4.2.4 DIR 


Dies ist ein kleines Hilfsprogr amm mit folgenden 
Möglsichkeiten: 
d — Zeigt das Directory auf dem Bildschirm an 


Mit diesem Zeichen kann ein Diskettenbefehl in ver- 
kürzter Form eingegeben werden (z.B >N:TEST,KN) zum 
formatieren einer Diskette 


x 
| 


α - Verlassen des Frogramms 


s — Fehlerkanal anzeigen 


Diese Möglichkeiten haben Sie auch mit dem DOS 5.1, außerdem 
noch weitere Befehle beinhaltet. 


4.2.5 VIEW BAM 


Moit diesem Dienstprogramm können Sie die Belegung der Blocks 
auf der Diskette auf dem Bildschirm anzeigen lassen. Diese 
Tabelle zeigt in vertikaler Richtung die Sektoren und in 
horizontaler Richtung die Spuren an. Normale Kreuze 
kennzeichnen freie und reverse Kreuze die belegten Blöcke. 
Die Bezeichnung "n/a" bedeutet, daß diese Blöcke nicht auf 
der Spur existieren. 

Nach Ausgabe der Tabelle wird der Diskettenname und die 
Anzahl der freien Blöcke angezeigt. 

4.2.6 CHECK DISK 


Das Dienstprogramm "CHECK DISK" testet jeden Block der 
Diskette, indem er beschrieben und gelesen wird. Der momentan 


bearbeitete Block und die Gesamtzahl der getesteten Blöcke 
wird am Bildschirm angezeigt. 


4.2.7 DISPLAY T&S 


Wenn Sie an dem Aufbau der einzelnen Blocks der Diskette 
interessiert sind und diese auf dem Bildschirm oder Drucker 
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ausgeben wollen, hilft Ihnen dieses Dienstprogramm weiter. 
Nach Starten des Programms geben Sie die gewünschte Spur 
(TRACK) und den Block (SECTOR) ein. Dieser wird dann entweder 
auf dem Drucker ider auf dem Bildschirm ausgegeben. Der in 
diesem Buch enthaltene DISK-MONITOR ist aber wesentlich 
komfortabler als dieses Programm, da mit Ihm auch Blöcke 
geändert und wieder zurückgeschrieben werden können. 


4.2.8 PERFORMACE TEST 


Dieses Frogramm ermöglicht es, die Mechanik des Laufwerkes 
VC-1541 zu testen. Dazu werden alle Zugriffsbefehle auf die 
Diskette in folgender Reihenfolge ausgeführt: 


1. Diskette wird formatiert 

2. Ein File wird zum Schreibn geöffnet 
3. Daten werden in dieses File geschrieben 
4. Das File wird wieder geschlosssen 
9. Dieses File wird zum Lesen geöffnet 
6. Die Daten werden gelesen 

7. Das File wird wieder geschlossen 

8. Das File wird gelöscht 

9. Die Spur 35 wird beschrieben 
10. Die Spur 1 wird beschrieben 
11. Die Spur 35 wird gelesen 
12. Die Spur 1 wird gelesen 


Nach jedem Zugriff auf die Diskette wird der  Fehlerkanal 
angezeigt. Auf diese Weise kann festgestellt werden, welcher 
Zugriff auf die Diskette nicht fehlerfrei verläuft. 

Benutzen Sie für dieses Test nur Disketten, die keine 
wichtigen Daten enthält, da diese verloren gehen. 


4.3 BASIC-Erweiterungen und Programme zur komfortablen 
Nutzung der VC 1541 


4.3.1 Eingabe beliebig langer Strings von Diskette 


Das Einlesen von Daten von der Floppy mit Hilfe des INPUT#- 
Befehls hat leider einen großen Nachteil: Mit Commodore 64 
und VE 20 können keine Daten eingelesen werden, die mehr als 
88 Zeichen haben. Dies liegt am Eingabepuffer des Rechners, 
der nicht länger ist. Außerdem können nicht alle Zeichen mit 
INPUT# gelesen werden. Steht innerhalb eines Datensatzes ein 
Komma oder ein Doppelpunkt, so sieht der Rechners dies als 
Trennzeichen an, und der Rest der Eingabe wird der nächsten 


Variable zugewiesen. Enhält der INFUT#-Befehl nur eine 
Variable, so wird der Rest ganz ignoriert und beim nächsten 
INFUT# wird erst hinter dem nächsten Carriage Return 


(CHR#(13)) weitergelesen. Die Alternative, die Eingabe mit 
dem GET#-Befehl erfordert eine langsame Schleife in BASIC, 
die wir vermeiden wollen. 


Hier kann eine kleine Maschinenroutine Abhilfe schaffen. 


Wir ändern hier den INPUT#-Befehl ab, indem wir als zusätz- 
lichen Farameter die Anzahl der zu lesenden Zeichen mit 
angeben. Zur Unterscheidung vom normalen INPUT#-Befehl nennen 
wir unseren Befehl INFUT*. Die Syntax sieht dann folgender- 
maßen aus: 


INPUT* 1f, len, var 


Dabei ist 1f die logische Filenummer der zuvor geöffneten 
Datei, len ist die Anzahl der Zeichen „ die eingelesen werden 
sollen und var ist die Stringvariable, in die die Zeichen 
eingelesen werden sollen. Ein Programmausschnitt könnte dann 
z.B. so aussehen: 


100 OPEN 2,8,2, "DATEI" 
110 INPUT* 2,100,A$ 


Damit wird ein String von 100 Zeichen Länge aus der 
geöffneten Datei nach A$ gelesen. Dieses Verfahren ist 
besonders für relative Dateien geeignet, da hierbei nach der 
Positionierung der Record-Zeigers mit einem Befehl der kom- 
plette Datensatz gelesen werden kann. Die Aufteilung des 
Datensatzes in die einzelnen Datenfelder kann dann mit dem 
MID$-Befehl geschehen. Wie man Datensätze auf elegante Weise 
erzeugt, wird im nächsten Kapitel beschrieben. 


Bei diesem Verfahren ist es auch nicht mehr nötig, einen 
Datensatz mit einem Carriage Return abzuschließen. Sie können 
also besonders bei relativen Dateien die maximale Datensatz- 
länge ausnutzen: 


290 


100 OPEN 1,8,15 

110 OPEN 2,8,2, "REL-DATEI,L , "*CHR$ (20) 
120 PRINT#1, "P"+CHR$ (10) +CHR$ (O) +CHR$ (1) 
130 PRINT#2, "12345678901234567890"; 

140 PRINT#1, "P"+CHR$ (10) +CHRS (0) +CHR$ (1) 
150 INPUT* 2,20,A$ 

160 PRINT A$ 


12345678901234567890 
Anschießend finden Sie das Assemblerlisting des Maschinen- 


programms, das im Kassettenpuffer abgelegt wurde sowie je ein 
Ladeprogramm in BASIC für Commodore 64 und VC 20. 


110: 033C .OFT P1 
ı INPUT* LF,LEN,A$ 


150: 033C INFUT 


= $85 
150: O33C STERN = $AC 
170: 033C BASVEC = $308 
180: 033C CHRGET = $73 
190: 033€ CHRGOT = CHRGET + ὁ 
, 
210: 033 ; 064 - VERSION 
210: 0350 e 
380: 02330 CHKIN = — $El1E 
390: O33C BASIN = $E112 
400: 033C CHKCOM = $AEFD 
410: — 033C INTER = $A7AE 
420: 0356 EXECOLD = $A7E7 
430: 9550 INPUTOLD = $ABBF 
440: 033 FINDVAR = ΕΒΟΒΒ 
450: 033C STRRES = $B475 
450: 033 FRESTR = $B6A3 
470: 033C GETBYT = $B79E 


. 
H 


; 20ER VERSION 


240: 03536 CHKIN = $bE11B 
290: 033C RASIN = $E10F 
260: 033C CHKCOM = $CEFD 
270: 033C INTER = $C7AE 
2B0: 033C EXECOLD = $C7E7 
290: 033C INPUTOLD = $CBBF 
300: 033C FINDVAR = $D08B 
310: 033C STRRES = $D475 
320: 033C FRESTR = $D6A5 
330: 033C GETBYT = $D79E 


; GEMEINSAME LABELS 


; 
490; 033C VARADR 


= $49 
500: 033C CLRCH = $FFCC 
= $51 


310: 0536 PARA 


3 
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330: 033 *= 828 


540: 0330 A9 47 INIT LDA #<TEST 

550: 033E AO 03 LDY &#>TEST 

360: 0340 8D 08 03 STA BASVEC 

370: 0343 8C 09 03 STY BASVEC+1 

580: 0346 60 RTS 

500: 0347 20 73 00 TEST JSR CHRGET 

610: 034A C9 85 CMF #INPUT 

620: 034C FO 06 BEQ FOUND 

630: 034E 20 79 00 JSR CHRGOT 

640: 0351 4C E7 Α7 JMP EXECOLD ; ZUR ALTEN ROUTINE 
650: 354 20 73 00 FOUND JSR CHRGET 

660: 0357 C9 AC CMP #STERN ; NEUE INPUT ROUTINE 
670: 0359 FO 06 BEQ OKSTERN 

680: 035B 20 BF AB JSR INFUTOLD 

680: 035E 4C AE A7 JMP INTER 

690: 0361 20 9B B7 OKSTERN JSR GETBYT-3 ; FILENUMMER HOLEN 
700: 0364 20 1E El JSR CHKIN 

710: 0567 20 FD AE JSR CHKCOM 

720: 0568 20 9E B7 JSK GETBYT ; LAENGE 

730: 0360 ΒΑ TXA 

730: O36E 48 FHA ; MERKEN 

740: 036F 20 FD AE JSR CHKCOM 

750: 0372 20 8B BO JSR FINDVAR ; VARIABLE SUCHEN 
760: 0375 85 49 STA VARADR 

760: 0377 B4 4A STY VARADR+1 

770: 0379 20 A3 Be JSR FRESTR 

780: 037C 68 PLA ; LAENGE 

790: 037D 20 75 B4 JSR STRRES ; PLATZ FUR STRING RESERVIEREN 
800: 0380 A0 02 LDY #2 

810: 0382 B9 61 00 STORE LDA PARA,Y 

820: 0385 91 49 STA (VARADR),Y 

830: 0387 88 DEY 

840: 0388 10 F8 BPL STORE 

850: 0384 CB INY ; Y=0 

850: 038B 20 12 El FETCH JSR BASIN 

B70: 038E 91 42 STA  (PARA*1),Y 

880: 0390 C8 INY 

890: 0391 C4 61 CPY PARA 

900: 0393 DO Fó BNE FETCH 

910: 0395 20 CC FF JSR CLRCH 

910: 0398 4C AE Α7 JMF INTER : ZUR INTERPRETERSCHLEIFE 
Hier sind nun die BASIC-Progr amme zur Eingabe der 


Maschinenprogramme für den INPUT* — Befehl. 


INPUT* , 64er Version 


100 FOR I - 828 TO 922 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 169, 71,160, 3,141, 8, 3,140, 9, 3, 9%, 32 
130 DATA 115, 0,201,133,240, 6, 32,121, O, 76,231,167 


140 
150 
160 
170 
180 
190 
200 
210 


DATA 32,115, 0,201,172,240, 6, 32,191,171, 76,174 
DATA 167, 32,155,183, 32, 30,225, 32,253,174, 32,158 
DATA 183,138, 72, 32,253,174, 32,139,176,133, 73,132 
DATA 74, 32,163,182,104, 32,117,180,160, 2,185, 97 
DATA 0,145, 73,136, 16,248,200, 32, 18,225,145, 98 
DATA 200,196, 97,208,246, 32,204,255, 76,174,167 

IF S <> 11096 THEN PRINT "FEHLER IN DATAS ''" : END 
SYS 828 : PRINT "OK '" 


INPUT* , 20er Version 


100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 


FOR I = 828 TO 922 

READ X : POKE Ι.Χ : S=S+X : NEXT 

DATA 169, 71,160, 3,141, 8, 3,140, 9, 3, 96, 32 
DATA 115, 0,201,133,240, 6, 32,121, O, 76,231,199 
DATA 32,115, 0,201,172,240, 6, 32,191,203, 76,174 
DATA 199, 32,155,215, 32, 27,225, 32,253,206, 32,158 
DATA 215,138, 72, 32,253,206, 32,139,208,133, 73,132 
DATA 74, 32,163,214,104, 32,117,212,160, 2,185, 97 
DATA 0,145, 73,136, 16,248,200, 32, 15,225,145, 98 
DATA 200,196, 97,208,246, 32,204,255, 76,174,199 

IF S <> 11442 THEN PRINT "FEHLER IN DATAS ''" : END 
SYS 828 : PRINT "OK !" 
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4.3.2 Komfortables Aufbereiten von Datensätzen 


Haben Sie schon einmal mit relativen Dateien gearbeitet, so 
wissen Sie, daß dort eine feste Datensatzlänge vorgegeben 
ist. Dieser Datensatz ist meist in mehrere Felder unterteilt, 
die ebenfalls an festen Positionen innerhalb des Datensatzes 
beginnen und eine definierte Länge haben. 


Geben Sie z.E. in einem Programm einen neuen Datensatz ein, 
so wird meistens für jedes Feld ein separater INFUT-Befehl 
verwendet. Bevor nun der komplette Datensatz geschrieben 
wird, muß er erst richtig zusammengesetzt werden. Jedes Feld 
muß auf seine Länge geprüft werden. Ist es länger als die 
vorgesehene Lange des entsprechenden Datenfeldes, muß der 
Rest abgeschnitten werden. Bei kürzeren Feldern wird man im 
allgemeinen mit Leerzeichen auf die geforderte Länge 
auffüllen. Im folgenden werden Ihnen nun zwei neuen 
BASIC-Befehle vorgestellt, die sich für diese Aufgabe 
hervoragend eignen. Diese neuen Befehle sind in 
Maschinensprache geschrieben und werden einmal mit einem 
SYS-Befehl initialisiert. Ab sofort sind sie dann wie alle 
anderen BASIC-Befehle über Befehlsworte aufzurufen. 


Der erste Befehl bekommt den Namen  'STR$ und dient zum 
Erzeugen eines Strings mit der Länge des Datensatzes. 


A$ = 'STR$(100," ") 


erzeugt einen String mit 100 Leerzeichen und legt ihn in der 
Variablen A? ab. 


Der nächste Befehl dient nun zum Einsetzen unserer 
Datenfelder in den oben erzeugten String. Wollen Sie z.B. die 
Variable N$, die den Nachnamen enthält, als Datenfeld von 25 
Zeichen Länge ab Position 1 in den String ΑΦ einsetzen, so 
sieht unser neuer Befehl so aus: 


MID$ (A$,1,25) = N$ 


Hier wird der MID$-Befehl als sogenannte Pseudo-Variable auf 
der linken Seite des Gleichheitszeichens verwendet. Was dabei 
passiert ist folgendes: 


Die Variable N£ ersetzt die ersten 25 Zeichen der Variable 
At. Ist die Variable N+ länger als 25 Zeichen, so ist 
sichergestellt, daß nur 25 Zeichen ersetzt werden und der 
Rest der Variablen nicht berücksichtigt wird. Ist N$ jedoch 
kürzer, werden nur so viele Zeichen ersetzt, wie die ΝΦ 
beinhaltet. Dort bleiben die ursprünglichen Zeichen in A# (in 
unserem Falle die Leerzeichen) erhalten. Das ist ganau das, 
was wir haben wollen. Jetzt können Sie folgendermaßen 
programmieren: 
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200 INPUT "NACHNAME  " 
210 INPUT "VORNAME " 
220 INPUT "STRASSE s 


[η 
v 


230 INPUT "NUMMER "s NR$ 
240 INPUT "ORT "s OF 
250 INPUT "PLZ "s PS 
260 A$ = !STR$ (94, " ") 
270 MID$ (A$,1,25) = N$ 


280 MID$ (A$,26,20) = 
290 MID$ (A$,46,20) = S$ 
300 MID$ (A$,66,5) = 
310 MID$ (A$,71,20) = 
320 MID$ (A$,91,4) = P$ 
330 PRINT#2, A$ 


Hier nun das Maschinenprogramm für den Commodore 64. 


135: C800 *= $C800 
140: C800 CHKAUF = $AEFA 
150: C800 CHKZU = ΦΑΕΕ7 
160: C800 CHKCOM = $AEFD 
170: C800 FRMEVL = SADIE 
180: C800 CHKSTR = ΦΑΡΒΕ 
190: C800 FRESTR = ΦΒόΑ5 
200: C800 YFAC = $B3A2 
205: C800 CHRGET = $73 

210: C800 CHRGOT = CHRGET+64 
220: C800 GETBYT = $B79B 
226: (800 INTEGER = ΦΒ1Αβ 
229: C800 DESCRPT = $64 

250: C800 STRADR = $62 

251: C800 ADR2 = $FB 

252: C800 ADRI = $FB+2 
233: C800 LEN1 = 3 

254; C800 LEN2 = 4 

235: C800 ANZAHL = 9 

236: C800 START = 6 

257: C800 TYPFLAG = 13 

258: C800 STRCODE = $C4 

240: C800 ILLQUAN = $B248 
241: C800 SYNTAX = ΦΑΕΟΒ 
242: C800 POSCODE = $R9 

243: C800 VECTOR = $30A 
245: C800 TEMP = LENI 
248: C800 A9 OD LDA #<TESTIN 
248: C802 AO CB LDY #>TESTIN 
248: C804 8D OA 03 STA VECTOR 
248: C807 8C OB 03 STY VECTOR*1 
24B: CBOA 4L 6B CB JMP MIDSTR 
290: C80D A9 00 TESTIN LDA 30 

250: CBOF 85 OD STA TYPFLAG 
250: C811 20 73 00 JSR CHRGET 
251: C814 C9 21 CMP #W"!" 
251: C816 FO 06 BEQ TEST2 
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1000; 
1010: 
1020: 
1030: 
1040: 
1050: 
1060: 
1070: 
1080: 
1090: 
1100: 
1110: 
1120: 
1120: 
1130: 
1140: 
1150: 
1160: 


200: 
210: 
240: 
250: 
259: 
260: 
270: 
280: 
290: 
325: 
330: 
355: 
360: 


C818 
C81B 
C81E 
C821 
C823 
C825 


C828 
0828 
C82E 
C851 
C832 
C833 
C836 
C839 
C83B 
C83D 
C840 
C842 
C844 
C846 
C849 
C84C 
CB4E 
C850 
C852 
C854 
C855 
C858 
C859 
C85B 
C85D 
C8SE 
C860 
C852 
C865 
C868 


C86R 
CBAB 
C86B 
C86B 
CBAB 
C86B 
C85B 
C86B 
C86B 
C86B 
0868 
0003 
0004 


4C 
20 
C9 
F0 
4C 


20 
20 
20 
BA 
48 
20 
20 
24 
30 


η 
a 


AS 
DO 
AS 
45 
20 
FO 
AQ 
Bi 
85 
68 
20 
AB 
FO 
AS 
88 
91 
DO 
20 
4C 
4C 


00 
AE 
00 


AF 


00 
AE 
B7 


AE 
AD 


Bi 


ca 
B7 


B4 


B4 


B2 


TEST2 


JSR 
JMP 
JSR 
CMP 
BEQ 
JMP 


CHRGOT 
$AEBD 
CHRGET 
#STRCODE 
STRING 
SYNTAX 


; STRING$-FUNKTION 


STRING 


STR 


STR2 


LOOP 


STR3 


ILL 


e we wa we 


H 
MIDCODE 
EXECUT 
EXECOLD 
VARNAM 
VARADR 
DESCRPT 
TESTSTR 
GETVAR 
SETSTR 
TEST 
GETBYT 


LAENGE 


JSR 
JSR 
JSR 
TXA 
PHA 
JSR 
JSR 
BIT 
BMI 
JSR 
LDA 
BNE 
LDA 
JMP 
JSR 
BEQ 
LDY 
LDA 
STA 
FLA 
JSR 
TAY 
BEQ 
LDA 
DEY 
STA 
BNE 
JSR 
JMP 
JMF 


* κ 
" H 


CHRGET 
CHKAUF ; 
GETBYT+3 


H 
CHKCOM 
FRMEVL 
TYPFLAG 
STR : 
INTEGER 
DESCRPT ; 
ILL d 
DESCRPT +1 
STR2 
$8782 : 
ILL ; 
#0 
($22),Y 3 
TEMP 


$B47D 


STR3 
TEMP 


(STRADR) , Y 
LOOP 

$BACA  ; 
CHKZU 
ILLQUAN 


$CA 
$308 ; 
$A7E7 
$45 
$49 
$64 
$ADBF 
$BOBB 
$4452 
$AEFF 
$B79E 
3 

*+1 
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KLAMMER AUF 


LANGE MERKEN 


STRING 


HIGHBYTE 


; 299 


; LOW-BYTE, LANGE 


SETSTR, TYPFLAG AUF NUMERISCH 
LANGE NULL 


ERSTES ZEICHEN 


LANGE 
FRESTR 


; STRING ERZEUGEN 


STRING IN DESCRIPTORSTACK BRINGEN 


MID$(STRINGVARIABLE,POSITION,LÄNGE) = STRINGAUSDRUCK 
MID$(STRINGVARIABLE,POSITION) = STRINGAUSDRUCK 


VECTOR FüR STATEMENT AUSFÜHREN 


0005 
0007 
0007 
0007 


GEI 
C86D 
C86F 
C872 
C875 
C876 
C879 
C87B 
C87D 
C880 
C883 
C886 
C889 
C88C 
C88E 
C890 
C892 
C894 
C897 
C899 
C896 
C89C 
CBIE 
ΓΒΑ! 
CBAS 
CBAS 
C847 
C848 
C8AA 
C8AC 
CBAF 
CBR2 
C8B3 
C8B5 
C8B6 
C8B8 
COBB 
C8BD 
C8BF 
C8C1 
C8C3 
C8C6 
C8C9 
CBCA 
C8CC 
C8CF 
C8D1 
C8D2 
C8D3 
C8D5 
C8D7 


03 
03 


00 MIDTEST 


00 
A7 
00 
ΑΕ 


Βό 


AA 


AE 
B7 


00 


AE 
B7 


B2 


POSITION zs 


VARSTR 
GLEICH 
ZEIG2 


MIDSTR 


MID 


NEXT 


ILL 
STORE 


ἘΞ 


LDA 
LDY 
STA 
STY 
RTS 
JSR 
CMP 
BEQ 
JSR 
JMP 
JSR 
JSR 
JSR 
STA 
STY 
Sin 
STY 
JSR 
LDY 
LDA 
PHA 
BEQ 
JSR 
LDY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
JSR 
TXA 
BEQ 
DEX 
STX 
JSR 
CMP 
BNE 
LDA 
BNE 
JSR 
JSR 
TXA 
BNE 
JMP 
STA 
PLA 
SEC 
SBC 
CMP 
BCS 


+1 
*+2 
$B2 
$50 


#<MIDTEST 
#>MIDTEST 
EXECUT 
EXECUT+1 


CHRGET 

#MIDCODE ; CODE FUR MID$ 7 
MID ; JA 

CHRGOT 


EXECOLD ; NORMALES STATEMENT AUSFÜHREN 


CHRGET ; NÄCHSTES ZEICHEN 
CHKAUF ; KLAMMER AUF 
GETVAR ; VARIABLE HOLEN 
DESCRPT 
DESCRPT+1 
VARADR 
VARADK+1 
FRESTR 
#0 
(DESCRPT) ,Y 
: LÄNGE 
ILL 
SETSTR ; STRING IN RAM üBERTRAGEN 
#1 
(VARADR) , Y 
VARSTR ; VARIABLENADRESSE MERKEN 


(VARADR) ,Y 

VARSTR+1 

CHKCOM 

GETBYT ; POSITION HOLEN 


ILL 


POSITION 

CHRGOT 

#")" s AUSDRUCK ZU ENDE 7 
NEXT 

#$FF s MAX. LANBE 

STORE 

CHKCOM 

GETBYT ; LANGE HOLEN 


#45 
ILLQUAN 
LAENGE 


POSITION 
LAENGE 
OK 
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717: C8D9 85 03 STA LAENGE 


7201: CBDB 20 F7 AE OK JSK CHKZU : KLAMMER ZU 

730: CBDE ñ? R2 LDA #BLEICH 

770: CBEO 20 FF AE JSR TEST 

780: C8E3 20 9E AD JSR FRMEVL ; AUSDRUCK HOLEN 

790: CBES 20 AS Bé JSR FRESTR 

800: C8E9 AD 02 LDY #2 

800: CBER Bi 64 LDA (DESCRFT),Y 

800: CBED 85 5 STA ZEIG2+1 

800: CBEF 88 DEY 

800: CBFO Bi 64 LDA «DESCRFT),Y 

800: C8F2 85 50 STA ZEIG2 

810: C8F4 88 DEY 

810: C8F5 Bi 64 LDA (DESCRFT),Y 

820: C8F7 FO D3 BEQ ILL ; NULL DANN FEHLER 

840: CBF9 CS 03 CMP LAENGE 

850: CBFB BO 02 ECS Oki 

850: CBFD 85 03 STA LAENGE 

870: C8FF AS 05 οκι LDA VARSTR 

880: C901 18 CLC 

880: C902 65 04 ADC POSITION 

910: C904 85 05 STA VARSTR 

910: C906 90 02 BCC  **4 

920: C908 Εό 06 INC VARSTR+1 

940: C90ñ A4 03 LDY LAENGE 

950: C90C 88 LOOF DEY 

950: C90D Bi 50 LDA (ZEIG2),Y ; ZEICHEN AUS STRINGAUSDRUCK 
960: C90F 91 05 STA (VARSTR),Y ; IN STRINGVARIABLE ÜBERTRAGEN 
970: C911 CO 00 CPY #0 

970: C913 DO F7 BNE LOOP 

980: C915 4C AE A7 JMF $A7AE s ZUR INTERPRETERSCHLEIFE 


Für diejenigen, die über keinen Monitor oder Assembler für 
den Commodore 64 verfügen, haben wir ein Ladeprogramm in 
BASIC abgedruckt. 


100 FOR I = 51200 TO 51479 

110 READ X : POKE Ι.Χ : S=S+X : NEXT 

120 DATA 169, 13,160,200,141, 10, 3,140, 11, 3, 76,107 
130 DATA 200,169, 0,133, 13, 32,115, 0,201, 33,240, 6 
140 DATA 32,121, O, 76,141,174, 32,115, 0,201,196,240 
150 DATA 3, 76, 8,175, 32,115, 0, 32,250,174, 32,158 
160 DATA 183,138, 72, 32,253,174, 32,158,173, 36, 13, 48 
170 DATA 12, 32,170,177,165,100,208, 36,165,101, 76, 82 
180 DATA 200, 32,130,183,240, 26,160, 0,177, 34,133, 3 
190 DATA 104, 32,125,180,168,240, 7,165, 3,136,145, 98 
200 DATA 208,251, 32,202,180, 76,247,174, 76, 72,178,169 
210 DATA 118,160,200,141, 8, 3,140, 9, 3, 96, 32,115 
220 DATA 0,201,202,240, 6, 32,121, O, 76,231,167, 32 
230 DATA 115, 0, 32,250,174, 32,139,176,133,100,132,101 
240 DATA 133, 73,132, 74, 32,163,182,160, 0,177,100, 72 
250 DATA 240, 46, 32, 82,170,160, 1,177, 73,133, 5,200 
260 DATA 177, 73,133, 6, 32,253,174, 32,158,183,138,240 
270 DATA 23,202,134, 4, 32,121, 0,201, 41,208, 4,169 
280 DATA 255,208, 12, 32,253,174, 32,158,183,138,208, 3 
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290 
300 
310 
320 
55ο 
340 
550 
560 
370 


DATA 76, 72,178,133, 3,104, 56,229, 4,197, 3,176 
DATA 2,133, 3, 32,247,174,169,178, 32,255,174, 32 
DATA 158,173, 32,163,182,160, 2, 
DATA 177,100,133, 80,136,177,100,240,211,197, 3,176 


DATA 2,133, 3,165, 5, 


24,101, 


177,100,133, 81,136 


4,133, 5,144, 2 


DATA 230, 6,164, 3,136,177, 80,145, 5,192, 0,208 


DATA 247, 76,174,167 


IF S <> 31128 THEN PRINT 


SYS 51200 : PRINT "OK !" 


"FEHLER 
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IN DATAS !!" = END 


4.3.3 Spooling - Direktes Drucken von Diskette 


Haben Sie an Ihrem Rechner außer der Floppy noch einen 
Drucker angeschlossen, können Sie eine spezielle Eigenschaft 
des seriellen Bus ausnutzen. 


Es besteht nämlich die Möglichkeit, Dateien von der Floppy 
direkt zum Drucker zu schicken, ohne daß dies Byte für Byte 
über den Rechner geschehen muß. Hat man z.B. einen beliebigen 
Text als sequentielle Datei auf Diskette gespeichert und will 
man diesen auf dem Drucker ausgeben, wäre folgende Program- 
mierung möglich: 


100 OPEN 1,4 : REM DRUCKER 

110 OPEN 2,8,2, "O:TEXT" : REM TEXTDATEI 
120 GET42, A$ : IF ST = 64 THEN 140 

130 PRINT41, A$; : GOTO 120 

140 CLOSE 1 : CLOSE 2 

150 END 


Es werden solange Zeichen von der Floppy geholt und zum 
Drucker geschickt, bis das Dateiende erkannt wird. Dann 
werden beide Dateien geschlossen und das Programm beendet. 


Beim Spooling wird nun folgendes gemacht: 


Zuerst werden wieder beide Dateien geöffnet. Jetzt wird an 
den Drucker ein Befehl zum Daten empfangen (Listen) gesandt, 
während die Floppy den Befehl zum Daten senden (Talk) erhält. 
Ab sofort schickt die Floppy solange Daten selbsttätig an den 
Drucker, bis das Dateiende errreicht ist. Während dieser Zeit 
können Sie Ihren Rechner weiter benutzen, ohne daß die 
übertragung davon beeinträchtigt wird. Lediglich die 
Benutzung von Feripheriegeräten über den seriellen Bus ist 
während dieser Zeit nicht möglich. 


In der Praxis wird dies mit einem kleinen  Maschinenprogramm 
gemacht. Will man das Spooling starten, ruft man das Programm 
auf und übergibt dabei den Namen der Datei, die man senden 
will. 


SYS 828, "TEXT" 


öffnet die Datei "TEXT" auf der Diskette und schickt sie zum 
Drucker. Sobald die Übertragung startet, meldet sich der 
Rechner mit READY.’ wieder und Sie können ihn weiter 
benutzen, solange nicht auf den seriellen Bus zugegriffen 
wird. Sie können zum Beweis, daß der Rechner nicht mehr zur 
übertragung gebraucht wird, das Buskabel zur Floppy 
herausziehen, so daß die Floppy nur noch mit dem Drucker 
verbunden ist. Ist das Spooling beendet, so bleibt die Datei 
in der Floppy noch geöffnet (die rote LED leuchtet weiter). 
Sie können die Datei schließen, indem Sie den SYS-Befehl ohne 
Dateinamen eingeben (natürlich muß das Kabel zur Floppy 
wieder eingesteckt sein). 
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SYS 828 
Mit dem gleichen Befehl können Sie auch eine laufende 
übertragung beenden. Das Maschinenprogramm sowie je ein 
Ladeprogramm für Commodore 64 und VC 20 finden Sie im 
Anschluß. 
; 1541- 64 SPOOL 


140: 033C CHRGOT 


= $79 
ECO: 035C SERFORT = $DD00 ; PORT FUR SERIELLEN BUS 
160: )33C LISTEN = ΦΕΕΒΙ 
170: 033C ATNRES = $EDBE ; ATN RüCKSETZEN 
180: 033C ELRCH = $FFCC 
190: 0550 CLOSE = $FFC3 
200: 0556 CLALL = $F32F 
210: 035C GETNAME = $E254 : FILENAME HOLEN 
2201 033C OPEN = $FFCO 
230: 0556 CHKIN = $FFC6 
240: 033 FA = $BA ı GERATEADRESSE 
250: 033C SA = $B9 ı SEKUNDARADRESSE 
260: 033 FNLEN = $B7 ı LÄNGE DES FILENAMENS 
270: 0336 TEMP = $FB 
280: 0556 INDEV = $99 ; EINGABEGERAT 
290: 0535 NMBFLS = $98 : ANZAHL DER FILES 
300: 033C DUTDEV = $940 ; AUSGABEGERAT 
310: 0505 SETFIL = $FFBA s FILEPARAMETER SETZEN 
320: 033C READY = $E37B 
330: 033C ERROR = $AFOB ı SYNTAX ERROR 
400: O33C #= 828 
410: σας 20 79 00 JSR CHRGOT ; FOLGEN WEITERE ZEICHEN ? 
420: O33F FO 4F BEQ OFF : NEIN, DANN SPOOLING BEENDEN 
430: 0341 20 2F F3 JSR CLALL 
440: 0344 20 54 E2 JSR GETNAME ; FILENAME HOLEN 
450: 0547 A4 B7 LDX FNLEN 
4603 0549 FO 5 BEQ SYNTAX 
470: 034B 86 FB SIX TEMP 
480: 034D AI Οἱ LDA #1 ; LOGISCHE FILENUMMER 
490: 034F 42 08 LDX #8 ; BERATENUMMER 
300; 0351 AQ OF LDY #15 : SEKUNDARADRESSE 
310: 0353 20 BA FF JSR SETFIL 
320: 0556 A9 00 LDA 480 
330: 0358 85 B7 STA FNLEN 
340: 035A 20 CO FF JSR OPEN 
9901: 035D 20 CC FF JSR CLRCH 
360: 0560 AS FB LDA TEMP 
370: 0362 85 B7 STA FNLEN 
380: 0364 AY 02 LDA #2 
3920: 0366 A2 08 LDX #8 
600: 0368 A0 02 LDY #2 
610: 036ñ 20 BA FF JSR SETFIL 
620: 056D 20 CO FF JSR OPEN 
630; 0370 82 02 LDX #2 
640: 0572 20 C4 FF JSR CHKIN 
650: 0375 AD op DD LDA SERPORT 
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660: 
670: 
680: 
690: 
700: 
710: 
720: 
730: 
740: 
750: 
760: 
770: 
780: 
790: 
800: 
810: 
820: 
830: 
840: 
850: 
850: 
870: 


0378 09 08 ORA 888 ; ATN 
0374 BD 00 DD STA SERPORT 

037D A9 04 LDA #4 

037F 85 BA STA FA s DRUCKER 
0381 20 Bi FF JSR LISTEN 

0384 20 BE ED JSR ATNRES 

0387 ñ? Οὐ LDA #0 

0389 85 99 STA  INDEV 

038B 85 38 STA NMBFLS 

038D 4C 7B ES JMF READY 

0390 A9 02 OFF LDA #2 

0392 85 98 STA NMBFLS 

0394 AP 04 LDA #4 

0396 85 9A STA DUTDEV 

0398 A? 08 LDA #8 

0398 85 99 STA  INDEV 

039C 20 CC FF JSR CLRCH ; KANALE RUCKSETZEN 
O39F A? 01 LDA #1 

0381 20 C3 FF JSR CLOSE ; DATEIEN SCHLIESSEN 
0364 A9? 02 LDA #2 

0505 4C C3 FF JMP CLOSE 


0389 4C 08 AF SYNTAX JMP ERROR + SYNTAX ERROR 


Nun das BASIC-Ladeprogramm für den Commodore 64. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 


Hier 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 


FOR I = 828 TO 939 

READ X : POKE Ι.Χ : S=S+X : NEXT 

DATA 32,121, 0,240, 79, 32,231,255, 32, 84,226,166 
DATA 183,240, 94,134,251,169, 1,162, 8,160, 15, 32 
DATA 186,255,169, 0,133,183, 32,192,255, 32,204,255 
DATA 165,251,133,183,169, 2,162, 8,160, 2, 32,186 
DATA 255, 32,192,255,162, 2, 32,198,255,173, 0,221 
DATA 9, 8,141, 0,221,169, 4,133,186, 32,177,255 
DATA 32,190,237,169, 0,133,153,133,152, 76,123,227 
DATA 169, 2,133,152,169, 4,133,154,169, 8,133,153 
DATA 32,204,255,169, 1, 32,195,255,169, 2, 75,195 
DATA 255, 76, 8,175 

IF S <> 14511 THEN PRINT "FEHLER IN DATAS !''" : END 

PRINT "OK '" 


ist das Ladeprogramm für den VC 20. 


FOR I - 828 TO 939 

READ X : POKE Ι.Χ : S=S+X : NEXT 

DATA 32,121, 0,240, 79, 32,231,255, 32, 81,226,166 
DATA 183,240, 94,134,251,169, 1,162, 8,160, 15, 32 
DATA 186,255,169, 0,133,183, 32,192,255, 32,204,255 
DATA 165,251,133,183,169, 2,162, 8,160, 2, 32,186 
DATA 255, 32,192,255,162, 2, 32,198,255,173, 31,145 
DATA 9,128,141, 31,145,169, 4,133,186, 32,177,255 
DATA 32,197,238,169, 0,133,153,133,152, 76,103,228 
DATA 169, 2,133,152,169, 4,133,154,169, 8,133,153 
DATA 32,204,255,169, 1, 32,195,255,169, 2, 76,195 
DATA 255, 76, 8,207 

IF S <> 14559 THEN PRINT "FEHLER IN DATAS ''" =: END 

PRINT "OK '" 


4.4 Overlaytechnik und Nachladen von Maschinenprogrammen 


Eine bewährte Programmiertechnik besteht darin, für eine 
Problemlösung ein sogenanntes Menue- oder Auswahlprogramm zu 
schreiben, von dem aus für die einzelnen Teilprobleme jeweils 
ein eigenes Programm geladen und ausgeführt wird. Dabei gibt 
es zwei grundsätzliche Möglichkeiten: übernahme oder keine 
übernahme der Variablen in das nachgeladene Frogramm. Eine 
übernahme der Variablen ist nur dann möglich, wenn das auf- 
rufende Programm mindestens so groß oder größer als das nach- 
geladene ist. Wird von einem Programm aus ein anderes 
Programm nachgeladen, so bleiben die Zeiger auf das Programm- 
ende erhalten und das neue Programm wird vom Beginn an 
abgearbeitet. In unserem Beispiel würden wir folgendes 
Ergebnis erhalten: 


100 REM FROGRAMM 1 

110 REM DIESES PROGRAMM IST GRÖSSER ALS DAS ZWEITE 
120 A = 1000 

150 LOAD "PROGRAMM 2",8 


100 REM PROGRAMM 2 
110 PRINT A 


1000 


Ist das nachgeladene Programm jedoch größer als das ur- 
sprüngliche Programm, so würde ein Teil der Variablen über- 
schrieben und wir erhielten undefinierte Werte. Außerdem 
würde bei Wertzuweisungen an Variablen der Teil des Frogramms 
zerstört, der über die Länge des ersten Frogramms hinaus 
geht. 


Beim übernehmen vom Variablen gibt jedoch noch zwei  Beson- 
derheiten zu beachten: Handelt es sich um Stringvariablen, 
die im ersten Programm als Konstanten in Anführungszeichen 
definiert worden sind, so gibt es Frobleme. Bei String- 
variablen wird ein Zeiger verwendet, der auf den eigentlichen 
Text der Variablen zeigt. Wird eine Stringvaribable nun z.B. 
mit folgender Anweisung im ersten Programm definiert 


100 A$ = "TEXT" 


so zeigt der Variablenzeiger in den Programmtext. Beim 
Nachladen des nächsten Frogramms wird nun dieser Zeiger nicht 
verändert. An der ursprünglichen Stelle steht jetzt jedoch 
der neue Programmtext, so daß die Variable nun einen un- 
definierten Inhalt hat. Dies können wir jedoch leicht 
umgehen. Wir brauchen bloß dafür zu sorgen, daß der Text aus 
dem Programm in den oberen RAM-Bereich kopiert wird, in dem 
die Textvariablen normalerweise stehen. Dies erreichen wird 
z.B. durch folgende Programmzeile: 


100 ñ$ = "TEXT + "" 
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Durch die Addition des Leerstrings wird das Kopieren des 
Variableninhalts in den Stringbereich erzwungen. Ähnliche 
überlegungen gelten auch bei Funktionsdefinitionen, da auch 
hier der Zeiger auf die Definition im Programm zeigt. Hier 
müssen wir die Funktion in zweiten Programm noch einmal 
definieren, z.B. 


100 DEF FN A(X) = 0.5 * EXP (-X#X) 


Halten wir noch einmal fest: 

Wollen wir ein Frogramm nachladen, so können wir die 
Variablen nur dann weiter benutzen, wenn das zweite Programm 
kleiner als das erste Programm ist. Ist das nachgeladene 
Programm größer und sollen keine Variablen übernommen werden, 
können wir uns mit einem Trick aus der Affäre ziehen: 


Wir brauchen lediglich unmittelbar nach dem Laden den Zeiger 
auf das Ende des BASIC-Programms auf den Wert des neuen 
Frogramms setzen. Dies ist mit zwei POKE-Befehlen möglich, da 
die Endadresse nach dem Laden zur Verfügung steht: 


POKE 45, FEEK(174) : FOKE 46, FEEK(175) : CLR 


Der CLR-Befehl ist unbedingt erforderlich. Diese Zeile sollte 
als erste im nachgeladenen Programm stehen. Damit haben wir 
also die Möglichkeit geschaffen, beliebig große Programme 
ohne Variablenübergabe nachzuladen. Eine andere nicht so 
elegante Möglichkeit besteht darin, den Ladebefehl in den 
Tastaturpuffer zu schreiben und das Programm dann im 
Direktmodus automatisch nachladen zu können. Dazu schreiben 
wir vor dem Laden den LOAD- und RUN-Befehl auf den Bildschirm 
und füllen den Tastaturpuffer mit “HOME und Carriage Return. 
Im Programm muß danach eine END-Anweisung stehen. Das 
Betriebssystem holt dann im Direktmodus den Inhalt des 
Tastaturpuffers und liest damit den LOAD- und RUN-Befehl, der 
zum Laden und Ausführen des Programms führt. Da dies im 
Direktmodus geschieht, werden automatisch die Endadresse des 
Programms gesetzt, die Variablen gelöscht und mit dem 
nachfolgendem RUN das Programm gestartet. Der Nachteil 
hierbei ist jedoch, daß der Ladebefehl auf den Bildschirm 
geschrieben und eine evtl. Bildschirmmaske dabei zerstört 
wird. In der Fraxis sähe das so aus: 


1000 PRINT CHR$ (147) "LOAD"CHR$ (34) "PROGRAMM 2"CHR$ (34) " ,8" 
1010 FRINT : PRINT : PRINT : PRINT 

1020 PRINT "RUN" 
1030 POKE 631,19 
1040 POKE 634,13 
1050 POKE 198,6 


POKE 632,13 
POKE 635,13 
END 


POKE 633,13 
POKE 636,13 


Sie sehen schon, daß dieses Verfahren umständlicher als das 
oben geschilderte Verfahren ist; es ist nur der Vollständig- 
keit halber erwähnt. Beim ersten Verfahren wäre nur in Zeile 
1000 der programmierte LOAD-Befehl erforderlich: 
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1000 LOAD "PROGRAMM 2",8 


Beim Nachladen von Maschinenprogrammen hat sich eine andere 
Technik bewährt. 


Werden von einem BASIC-Frogramm Maschinenprogramme benutzt, 
so werden diese meist zu Beginn des BASIC-Programms geladen. 
Dabei müssen wir jedoch zweierlei beachten: 


Zum einen muß dafür gesorgt werden, daß die Maschinenpro- 
gramme absolut, d.h. in einen bestimmten Speicherbereich 
geladen werden. Gibt man beim Laden eines Frogramms keine 
zusätzlichen Farameter an, so geht das Betriebssytem davon 
aus, daß es sich um BASIC-Frogramme handelt und lädt sie 
immer ab der Startadresse des BASIC-RAMs, im allgemeinen also 
ab Adresse 2049 (beim Commodore 64). Maschinenprogramme sind 
jedoch nur lauffähig, wenn sie an die Adresse geladen werden, 
für die sie auch geschrieben wurden. Dieses absolute Laden 
kann man durch Anhängen der Sekundäradresse 1 erreichen: 


LOAD "MASCH-PRG",8,1 


Desweiteren erinnern wir uns, daß beim Laden im Programm- 
modus das Frogramm wieder von Anfang an gestartet wird. Das 
würde beim Laden von Maschinenprogrammen jedoch zu einer 
Endlosschleife führen, da das Betriebssystem davon ausgeht, 
daß ein neues BASIC-Programm nachgeladen wurde: 


100 LOAD "MASCH-FRG",8,1 


Hier können wir nun ausnutzen, daß die Variablen beim 
Nachladen erhalten bleiben. Wenn wir tolgendermaßen 
programmieren, haben wir unser Ziel erreicht: 


100 IF A-O THEN A=1 : LOAD "MASCH-PRG" „8,1 
110 ... 


Wenn wir das Frogramm mit RUN starten, hat A noch den Wert 
Null und die Anweisungen hinter THEN werden ausgeführt: A 
erhält den Wert 1 und das Maschinenprogramm wird geladen. 
Wenn nach dem Laden das Programm wieder von Angang an 
abgearbeitet wird, hat A den Wert 1 und es wird direkt in die 
nächste Zeile gesprungen, wir haben unser Ziel erreicht. 


Ganz ähnlich kann man vorgehen, wenn man mehrere Maschinen- 
programme zu laden hat. 


100 IF A=0 THEN Gesi : LOAD "FROG 1",8,1 
110 IF A=1 THEN A=2 : LOAD "PROG 2",8,1 
120 IF A=2 THEN A=3 : LOAD "PROG 3",8,1 
150 .... 


Hier wird im ersten Durchlauf PROG 1 geladen, im nächsten 


PROG 2 usw. Sind alle Programme geladen, wird der Rest des 
BASIC-Frogramms ausfgeführt. 
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4.5 Merge - Aneinanderhängen von BASIC-Programmen 


Sicher haben Sie schon einmal an die Möglichkeit gedacht, 
BASIC-Frogramme, die Sie einzeln auf Diskette abgespeichert 
haben, zu einem Programm zusammen zu fügen. Ohne weiteres ist 
dies nicht möglich, da bei Laden eines Programms das im 
Speicher stehende Programm überschrieben wird. Mit der Kennt- 
nis, wie BASIC-Frogramme im Speicher abgelegt und auf Dis- 
kette abgespeichert werden, können wir jedoch ein einfaches 
Verfahren entwickeln, das diese Aufgabe bewerkstelligt. 


BASIC-Frogramme stehen folgendermaßen in Speicher: 


NL NH Zeiger auf die nächste Frogrammzeile, lo hi 
ZL ZH Zeilennummer, 1ο hi 

XX YY ZZ .....  Zeileninhalt 

00 Kennzeichen für Zeilenende 

NL NH Zeiger auf die nachste Programmzeile, lo hi 
ZL ZH Zeilennummer, lo hi 

XX. YY ZZ ewe Zeileninhalt 

00 Kennzeichen für Zeilenende 


Am Ende des Programms stehen zusätzlich noch 2 Nullbytes: 
OO 00 , insgesamt also 5 Nullbytes 


In diesem Format werden Programme nun auch abgespeichert. Wo 
Programmstart und Programmende liegen, steht in zwei  Zeigern 
in der Zeropage: 

PRINT PEEK(43) + 256 κ PEEK (44) 

ergibt den BASIC-Start, 2049 beim Commodore 64, 

PRINT PEEK (45) + 256 κ PEEK (406) 

zeigt auf das Byte hinter den drei Nullbytes. 

Da ein Programm immer an den BASIC-Start geladen wird, der 
durch den Zeiger 45/44 bestimmt ist, kann man also erreichen, 
daß ein zweites Programm ans Ende des ersten Programms 
geladen wird. In der Praxis müssen wir also wie folgt 


vorgehen: 


Zuerst laden wir das erste Frogramm in den Speicher. Jetzt 
holen wir uns den Wert des Programmendes. 


A = PEEK(45) + 256 κ PEEK(46) 


Dieser Wert wird um 2 vermindert, damit nachher die beiden 
Nullbytes am Programmende mit überschrieben werden. 


A = ñ -2 


Nun merken wir uns den ursprünglichen Wert des BASIC-Starts. 
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PRINT PEEK (43), PEEK(44) 


Jetzt setzen wir diesen Wert als BASIC-Start. 
POKE 43, A AND 255 : POKE 44, A / 256 

Nun können wir das zweite Programm nachladen. 
LOAD "PROGRAMM 2" ,8 


Wenn wir nun die alten Werte für den BASIC-Start wieder 
setzen, z.B. 1 und 8 beim Commodore 64 (wie oben mit dem 
PRINT-Befehl erhalten), haben wir das komplette Programm im 
Speicher und können es uns mit LIST ansehen oder mit SAVE 
komplett abspeichern. 


FOKE 43,1 : POKE 44,8 
Bei dieser Methode ist jedoch folgendes zu beachten: 


Das angehangene Programm darf nur Zeilennummern enthalten, 
die größer sind als die größte Zeilennummer des ersten 
Programm, da andernfalls diese Zeilennummer nie mit GOTO oder 
GOSUB erreicht werden könnten und die geordnete Reihenfolge 
nicht gewährleistet wäre. 


Dieses Verfahren eignet sich vor allem zum Anlegen einer 
Unterprogrammbibliothek für öfter gebrauchte Routinen, die 
dann nicht jedesmal neu programmiert werden müssen. Gehen Sie 
beim Anlegen Ihrer Frogrammbibliothek am besten so vor, daß 
Sie für jedes Programm einen bestimmten Zeilennummernbereich 
reservieren, z. B. 20000 - 25000, 25000 — 30000 usw. Wollen 
Sie mehrere Programme in der oben beschriebenen Weise 
nachladen, müssen Sie zuerst die Frogramme mit den kleinsten 
Zeilennummer laden und danach das Programm mit den nächst 
höheren Nummern. 
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4.6 Disk-Monitor für Commodore 64 und VC 20 


In diesem Kapitel stellen wir Ihnen ein sehr nützliches 
Werkzeug für den Umgang mit Ihrer Floppy vor, das Sie in die 
Lage versetzt, jeden beliebigen Block von Diskette zu laden, 
auf dem Bildschirm anzuzeigen, zu ändern und wieder auf 
Diskette zurück zu schreiben. 


Das Programm ist aus Geschwindigkeitsgründen- - vollkommen in 
Maschinensprache geschrieben. Folgende Befehle werden Ihnen 
zur Verfügung gestellt: 


Lesen eines Blocks von Diskette 
Schreiben eines Blocks auf Diskette 
Anzeige eines Blocks auf dem Bildschirm 
Ändern eines Blocks auf dem Bildschirm 
Senden von Diskettenbefehlen 

Anzeigen der Fehlermeldung der Diskette 
Rückkehr zu BASIC 


LEE NE NE NE NE κ 


Das Programm meldet sich nach dem Starten (automatisch durch 
das BASIC-Ladeprogramm) mit 


DISK-MONITOR V1.0 
> 


und erwartet Ihre Eingabe. Geben Sie jetzt ' ' (Klammeraffe) 
ein, so wird die Fehlermeldung von Diskette geholt und auf 
dem Bildschirm angezeigt, z.B. 


00, 0k,00,00 


Wollen Sie einen Befehl an die Diskette senden, so geben Sie 
δ΄ gefolgt von dem Befehl ein. Initialisieren können Sie die 
Diskette dann mit 
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Sie können so sämtliche Diskettenbefehle senden, die Sie 
sonst über die Befehlsfolge 


OPEN 15,8,15 
PRINT# 15, "Befehl" 
CLOSE 15 


senden würden. Sie können z.B. Dateien löschen, Disketten 
formatieren usw. 


Die wichtigste Funktion des Diskettenmonitors ist jedoch der 
Direktzugriff auf jeden Block der Diskette. Dazu dienen die 
Befehle 'R' und 'W'. 'R' steht für READ und liest einen 
gewünschten Block, Ν΄ bedeutet WRITE und schreibt einen 
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Block auf Diskette. Sie brauchen lediglich anzugeben, welchen 
Track und Sektor Sie lesen wollen. Diese Angaben müssen in 
hexadezimaler Form erfolgen, genauso wie auch die Ausgabe auf 
dem Bildschirm erfolgt. Wenn Sie z.B. Track 18, Sektor 1 
lesen wollen (den ersten Directoryblock), geben Sie folgenden 
Befehl ein: 


>R 12 O1 


Sämtliche Eingabe müssen also als zweistellige Hexzahlen 
erfolgen, die durch ein Leerzeichen von einander getrennt 
sind. 


Um sich den Block jetzt auf dem Bildschirm anzusehen, dient 
der Befehl 'M'. Wir erhalten z.B. folgende Ausgabe: 


DISK-MONITOR V1.0 

>M 

7200 12 04 82 11 O1 47 52 41 .....GRA 
>:08 46 49 4B 20 41 49 44 ΖΕ FIK AID. 
2510 53 52 43 AO AO OO 00 OO SRC... 


27:18 OO OO OO OO OO OO 15 OO ..... ace 
2:20 00 OO 82 13 OO 48 50 4C ..... HPL 
2:28 AE 54 2E 53 52 43 AO AO OT.SRC 

2550 AO AO AO AO AO OO OO OO ... 
25.58 OO OO OO OO OO OO OS OO ........ 
»:40 OO OO 82 13 03 56 50 4C ..... VPL 
»:48 4Ε 54 2E 53 52 45 ΑΟ ΑΟ OT.SRC 

2550 AO AO AO AO AO oo oo oo ... 


2558 OO OO OO OO OO OO O9 OO ........ 
2260 OO OO 82 13 O9 4D 45 4D .....MEM 
»:68 2E 53 52 43 AO AO ΑΟ ΑΟ .SRC 


2:70 AO AO AO AO AO OO OO OO ese 
2:78 OO OO OO OO OO OO 06 OO ........ 
2:80 OO OO 82 13 O8 4D 45 4D .....MEM 


»:88 2E AE 42 44 AO AO AO AO „OBJ 
2:90 AO AO AO AO ΑΟ OO OO OO eae 
2338 OO OO OO OO OO OO ΟΙ OO ........ 
>:AO OO OO 82 10 OO 535 57 41 .....S8WA 
2:08 SO 2E 53 52 43 AO ΑΟ AO P.SRC 
2ΞΒΟ AO AO AO AO AO OO OO OO ... 


2:88 OO OO OO OO OO OO O4 OO ........ 
>:CO OO OO 82 10 O1 4D 41 54 ..... MAT 
>:C8 52 49 58 2E 53 52 43 AO RIX.SRC 
>:DO AO AO AO ΑΟ AO OO OO OO eee 
2558 00 OO OO OO OO OO OD OO ........ 


>sEO OO OO 82 15 OC 47 41 55 .....GAU 
>2:2E8 53 53 2E 54 45 53 54 ΑΟ SS. TEST 


»sFO AO AO AO AO AO oo oo oo ... 
>:F8 00 OO OO OO OO OO ΟΙ OO ..... ess 
Sehen wir uns die Ausgabe mal etwas genauer an. Die erste 


Hexzahl nach dem Doppelpunkt gibt die Adresse der folgenden 8 
Bytes im Block an, OO bedeutet das erste Byte innerhalb des 
Blocks (Die Nummerierung läuft von OO bis FF bzw. O bis 255). 
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Nach der Adresse folgen 8 Bytes (4 auf dem VC 20). In der 
rechten Hälfte steht die entsprechenden ASCII-Zeichen. 
Handelt es sich um nichtdruckende Zeichen (ASCII-Kode $00 bis 
$1F und $80 bis $9F), so steht dort ein Punkt. Geben Sie wie 
oben den Befehl 'M' ein, so wird der ganze Block angezeigt. 
Da der Block nicht komplett auf den Bildschirm passt, besteht 
auch die Móglichkeit, sich nur einen Teil anzusehen. Geben 
Sie dazu den Adressbereich an den Sie anzeigen möchten. 
Wollen Sie nur die Hälfte sehen, schreiben Sie: 


»Η OO 7F 
Die zweite Hälfte entsprechend mit: 
»M 80 FF 


Beim VC 20 können Sie entsprechend sich jeweils ein Viertel 
eines Block ansehen. Wollen Sie nun irgendwelche Daten 
ändern, so gehen Sie einfach mit dem Cursor an die 
entsprechende Stelle und überschreiben das entsprechende Byte 
und drücken Return. Der neue Wert wird jetzt übernommen und 
gleichzeitig das ASCII-Zeichen in der rechten Hälfte mit 
geändert. 


Wollen Sie nun den veränderten Block wieder auf Diskette 
zurückschreiben, so benutzen Sie dazu den Befehl "Wi, Auch 
hierbei müssen Sie wieder hexadezimal angeben, welchen Track 
und Sektor Sie schreiben wollen. 


»W 12 O1 


schreibt den Block wieder nach Track 18, Sektor 1, von wo wir 
den Block vorher gelesen hatten. 


Wollen Sie wieder ins BASIC zurück, so geben Sie 'X' ein und 
der Rechner meldet sich wieder mit 'READY.'. Wollen Sie den 
Disk-Monitor danach noch einmal benutzen, brauchen Sie ihn 
nicht mehr neu zu laden, sondern können mit SYS 49152 beim 
64er bzw. mit SYS 6690 beim VC 20 wieder in den Monitor 
springen. 


Hier für den Anfang noch eine Warnung: 


Machen Sie unbedingt von Ihrer Diskette, die Sie so behandeln 
wollen, eine Kopie, mit der Sie dann arbeiten. Machen Sie 
nämlich beim Ändern oder Schreiben eines Blocks einen Fehler, 
können Sie wichtige Informationen auf der Diskette zerstören 
und die Diskette ist unter Umständen auf normalem Wege nicht 
mehr zu lesen. Sie sollten sich es daher zur Regel machen, 
bei derartigen Manipulation immer mit einer Kopie zu 
arbeiten. 


Nachfolgend finden Sie das Assemblerlisting dieses (etwas 


längeren) Maschinenprogramms, im Anschluß daran wieder 
Ladeprogramme in BASIC für den Commodore 64 und den VC 20. 
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; disk monitor vc20 / cbm 64 


3 
190: c000 prompt = ">" 
200: c000 ncmds = 6 s anzahl der befehle 
210: c000 input = $tfcf 
220: c000 talk = $tfb4 
230: c000 sectalk = Φ{{96 
240: c000 iecin z Φ{ {83 
250: c000 untalk = $ffab 
260: c000 listen = $ftb1 
270: c000 seclist = 5{495 
280: c000 iecout z $ttaß 
290: c000 unlist = $ffae 
300: c000 wr itp = $tfd2 
310: c000 open = Φ{{ς0 
320: c000 close = $ffc3 
330: c000 setpar = $ffba 
340: c000 setnam = $ffbd 
350: c000 chkin = $ffcó 
360: c000 ckout = $ffc9? 
370: c000 clrch = $ffcc 
380: c000 cr = 13 
390: c000 quote = $22 
400: c000 quotflg = $d4 
410: 0200 += $200 ; basic eingabepuffer 
420: 0201 Savx *= *+1 
430: 0202 wrap *z **1 
440: 0203 bad #= #+1 
450: 0204 von *= **1 
460: 0205 bis #= **1 
470: 0205 status = $90 
480: 0205 sa = $b9 $ sekundär adresse 
490: 0205 fa = $ba ; gerätenummer 
500: 0205 fnadr = $bb ; adresse des filenamens 
910: 0205 fnlen = $b7 ; länge des filenamens 
320: 0205 tmpc = $97 
610: c000 count = 8 ; anzahl der bytes pro zeile 
; 4 beim vc20 
620: c000 ready = $e37b ; $e467 beim vc20 
630: c000 a2 00 init ldx 80 
640: c002 bd 85 c2 msgout lda message,x 
650: c005 20 d2 ff jsr write 
660: c008 eB inx ; einschaltmeldung ausgeben 
670: c009 eO 12 cpx #ascdmp-message 
680: cOOb dO fŠ bne msgout 
690: c00d a2 Od start ldx #cr 
700: c00f a9 3e lda #proapt 
710: c011 20 eb cO jsr wrtwo 
710: c014 a9 00 lda #0 
710: c016 Bd 01 02 sta wrap 
720: c019 20 33 cl stl jsr rdoc ; eingabezeile lesen 
730: cOic c? Ae cap prompt 
740: cOle {0 #9 beq stl 
750: c020 c9 20 cap #" " ; leerzeichen überlesen 
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760: c022 #0 #5 beq stl 


770: c024 a2 05 50 ldx #ncmds-1 ; mit befehlstabelle vergleichen 
780: c026 dd da cO sl cmp cmds,x 

790: c029 dO Oc bne s2 

800: c02b Be 00 02 stx  savx ; nummer des befehls in der tabelle 
840: c02e bd 70 cO 148 adrh,x 

850: c031 48 pha ; rücksprungadresse auf stack 
850: c032 bd 76 cO lda adrl,x 

870: c035 48 pha 

880: c036 60 rts 

890: c037 ca s2 dex 

900: ε058 10 ec bpl si ; schleife über alle befehle 

910: cO3a 4c Od cO jap start 


s unterprogramm zur anzeige 
; des disketteninhalts 


960: cO3d 85 97 dm sta tmpc 
970: c03f 20 62 cO dal jsr space 
980: c042 b9 eO c2 lda buffer,y ; byte aus puffer holen 
990: c045 20 dc cO jsr wrob 
1000: | c048 c8 iny 
1000: c049 dO 03 bne dm2 
1000: cO4b ee 01 02 inc wrap 
1010: cO4e có 97 da2 dec tmpc 
1020: c050 dO ed bne dni 
1030: cO52 60 rts 
; bytes lesen und in speicher schreiben 
1060: c053 20 fe cO byt jsr rdob 
1070: c056 90 05 bcc by3 s leerzeichen ? 
1080: c058 99 eO c2 sta buffer,y ; byte in puffer schreiben 
1090: cO0Sb c8 by3 iny 
1100:  cOS5c có 97 dec tmpc 
1110: cOSe 60 rts 


1120: opt 20 62 c0 spac2 jsr space 
1130:  c052 a9 20 space Ida #" " 


1140: c064 2c ‚byte $2c 
1150: σθ65 a9 Od crlf lda #cr 
1160:  c0657 4c d2 ff jap write 
3 
; befehls- und adresstabelle 
1190: cOba 3a cmds Qbyt "s ; speicherinhalt ändern 
1200: c06b 57 ebyt "w" ; block schreiben 
1210: cO&c 52 ~byt "r" ; block lesen 
1220:  cO6d 4d byt "m" ; bytes anzeigen 
1230: cObe 40 «γι " ; disketten befehl 
1240: cOdf 58 γε "x" ; exit 
1250:  c070 εὐ adrh «byt >alta-i 
1260: cO71 cl «byt »direkt-1 
1270: c072 εἰ .byt »direkt-1 
1280: c073 cO „byt ?dsplym-1 
1290:  c074 εἰ ¿byt »disk-1 
1300: c075 ei «byt >ready-i 
1310:  c076 cO adrl ebyt «alta-1 
1320:  c077 90 .byt <direkt-i 
1330: | c078 90 .byt <direkt-1 
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1340: c079 7b .byt <dsplym-1 


1350: c07a 3e «byt <disk-1 

1360:  c07b 7a «byt <ready-i 

1370: c07c a0 00 dsplym ldy #0 

1370: c07e 8c 05 02 sty von 

1370: c081 88 dey 

1370: | c082 Bc 04 02 sty bis 

1370:  c085 20 cf {4 jsr input 

1370: | c088 CH Od cap #cr 

1370: cOBa {0 17 beq dspl 

1380: cOBc 20 fe cO jsr rdob ; startadresse lesen 
1390: cOBf 90 12 bcc dspi 

1400: cO91 Bd 03 02 sta von 

1410:  c094 20 cf ff jsr input 

1410: c097 c9 Od cap dcr 

1410: c099 {0 08 beq dspl 

1420: cO9b 20 fe cO jsr rdob ; endadresse lesen 
1430:  c09e 90 05 bcc dspl 

1440: cOa0 Bd 04 02 sta bis 

1450: cOa3 ac 05 02 dspi ldy von 

1460:  c0ab6 20 c& c2 dsp2 jsr testend 

1470: c0a? 20 dà c2 15γ altrit 

1470: cOac 98 tya 

1480: cOad 20 dc cO jsr  wrob ; adresse 

1490:  cObO 20 62 cO jsr space ; beim vc 20 weglassen 
1500: cOb3 a? 08 lda #count ; B oder 4 

1510:  cOb5 20 3d «0 jsr dm ; anzeigen 

1520: cOb8 20 97 c2 jsr ascdmp ; ascii-dump 

1530: cObb 4c ab cO jmp dsp2 ; unbedingter sprunq 


1550: cObe 4c Od cO begsi jap start 
sspeicher ändern ; adresse und daten lesen 


1570: CDCL 20 fe cO alta jsr rdob ; adresse lesen 
1580:  cOc4 90 f8 bcc begsi ; 
1590: cOc6 aB tay 
1600: c0c7 a9 08 Ida #count ; anzahl der bytes 
1610: cOc9 85 97 sta tapc 
1610: cOcb 20 33 εἰ jsr rdoc s beim vc20 weglassen 
1620: cOce 20 33 cl a5 jsr rdoc 
1620: cOdi 20 53 cO jsr byt 
1630: cOd4 dO 18 bne a 
1640: cOd6 20 97 CH jsr ascdmp 
1650: cOd9 4c Od cO jap start 
3 
; byte als hexzahl schreiben 
1710: cOdc 48 wrob pha 
1720: cOdd 44 lsr a 
1730: cOde 44 lsr a 
1740: cOdf Aa lsr a 
1750: cOe0 4a lsr a 
1760: cOel 20 {4 cO jsr ascii ; nach ascii convertieren 
1770:  cOe^4 aa tax 
1780:  cOe5 68 pla 
1790: cO0ed 29 Of and #41111 
1800: cOeB 20 {4 cO jsr ascii 


; zeichen in x und a schreiben 
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1820: 
1830: 
1840: 
1850: 
1850: 
1870: 
1880: 
1890: 
1900: 
1910: 
1920: 


1950: 
1960: 
1970: 
1980: 
1990: 
2000: 
2010: 
2020: 
2030: 
2040: 
2050: 
2060; 
2070: 
2080: 
2090: 
2100: 
2110: 
2120: 
2130: 
2140: 
2150: 
2160: 
2170: 
2180: 
2190: 
2200: 
2210: 
2220: 
2230: 
2240: 
2250: 
2260: 
2270: 
2280: 


2320: 
2330: 
2340: 
2350: 
2350: 
2360: 
2370: 


28 


02 
33 
28 
02 


3a 


0f 


02 
08 


cf 


Od 
f8 


Od 


ff 


ff 


02 
cl 


ci 


cl 


ft 


CU 


ff 


cO 


wrtwo 


ascii 


ascl 


pha 
txa 
jsr 
pla 
jmp 
clc 
adc 
bcc 
adc 
adc 
rts 


write 


write 


LE 37.) 
ascl 
#6 

#$3a 


s hexbyte lesen und nach a bringen 


rdob 


rdobi 


rdob2 


rdob3 


hexit 


hex09 
rdoc 


lda 
sta 
jsr 
cap 
bne 
jsr 
cmp 
bne 
clc 
rts 
jsr 
asl 
asl 
asl 
asl 
sta 
jsr 
jsr 
ora 
sec 
rts 
cmp 
php 
and 
plp 
bcc 
adc 
rts 
jsr 
cap 
bne 
pla 
pla 
jap 


#0 
bad 
rdoc 
4" " 
rdob2 
rdoc 
s" n 
rdob3 


bad 
rdoc 
hexit 
bad 


#$3a 


#41111 


hex09 
#8 


input 


#cr 
hex09 


start 


; dos support 


disk 


jsr 
cap 
bne 
lda 
sta 
jsr 
lda 


status 
crlf 
#8 
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`. 


3 


nächstes zeichen lesen 


nächstes zeichen lesen 


cy=0 


nach hex wandeln 


cy=1 


0-9 

plus 9 (c-1) 
zeichen lesen 
cr ? 


nein, return 


ja, zum start 


disk command 


status löschen 


2380: ci4f 85 ba sta fa ; floppyadresse 


2390: ci51 20 b4 ff jsr talk 

2400:  c154 a9 &f lda #15+$60 ; sa 15 
2410: εἰπό 85 b? sta sa 

2420: c158 20 96 {4 jsr sectalk ; sekadr 
2430: ci5b 20 a5 ff errin jsr iecin 

2440:  ciSe 24 90 bit status 

2440: c160 70 05 bvs enddsk 

2450: ci&2 20 d2 {4 jsr write 

2460:  c165 dO {4 bne errin 

2470: c167 20 ab ff enddsk jsr untalk 

2480: ciéa 4c Od cO jmp start 

2490: cid c9 24 dskcmd cap #"$" 

2500: ciéf {0 14 beq errl s catalog 
2510: εἰ7ι 48 pha 

2510: c172 a9 08 lda #8 

2520: c174 85 ba sta fa 

2530: ci76 20 bi ff jsr listen 

2540:  c179 a9 Gi lda #15+$60 

2550: ci7b 85 59 sta sa 

2560: ci7d 20 93 ff jsr seclist 

2560:  c180 48 pla 

2970: c181 20 a8 ff cmdout jsr iecout 

2580: c184 20 cf ff jsr input 

2590: ci87 CH Od cap #cr 

2600: c189 dO {6 bne cadout 

2610: ci8b 20 ae ff jsr unlist 

2630:  ci8e ἃς Od cO erri jap start 

2640: c191 20 55 cl direkt jsr rdoc 

2640: c194 20 fe cO jsr rdob ; track lesen 
2650: c197 90 {5 bcc erri 

2660: c199 Bd 27 c2 sta track 

2670: c19c 20 33 cl jsr rdoc 

2670: ci9f 20 fe cO jsr rdob 

2680: cla2 90 ea bcc erri 

2690: cia4 8d 2a c2 sta sector 

2690:  cla7 20 49 c2 jsr opndir 

2690: ciaa ad 00 02 lda savx 

2690: clad c9 01 cap #1 

2690: claf {0 16 beq dirwrite 

2700: cibi a9 31 lda #"1" 

2710: cib3 20 ed cl jsr sendcmd ; block-read befehl senden 
2720: cibé a2 Od ldx #13 

2730: cib8 20 cá {4 jsr chkin 

2740: cibb a2 00 ldx #0 

2750: cibd 20 cf ff dirin jsr input 

2760: cicO 9d eO c2 sta buffer,x 

2770: cic3 ep inx 

2770: cic4 dO f7 bne dirin 

2780: cic& 20 cc ff jsr clrch 

2790: cic9 20 be c2 enddir jsr clsdir 

2790: cicc ἃς Od cO jap start 

2800: cicf 20 2c c2 dirwrite jsr bufpnt 3; bufferpointer setzen 
2810: cid2 a2 Od ldx #13 

2820: cid4 20 c9 ff jsr ckout 
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2830: 
2840: 
2850: 
2850: 
2860: 
2870: 
2880: 
2890: 
2900: 
2910: 
2910: 
2920: 
2920: 
2920: 
2920: 
2930: 
2930: 
2930: 
2930: 
2940: 
2940: 
2950: 
2960: 
2970: 
2980: 
2980: 
2990: 
3000: 
3010: 
3020: 
3030: 
3040: 
3050: 
3060: 
3070: 
3080: 
3090: 
3090: 
3100: 
3110: 
3120: 
3130: 
3130: 
3140: 
3150: 
3160: 
3170: 
3180: 
3190: 
3190: 
3200: 
3210: 
3220: 
3230: 
3240: 


cid7 
cid? 
cldc 
cidf 
cleO 
cle2 
cles 
cle7 
clea 
cled 
cito 
c1f2 
c1f9 
c1f8 
cifb 
clfe 
c201 
c204 
c207 
c20a 
c20c 
c20f 
c211 
c214 
c217 
c218 
c21a 
c2ic 
c21f 
c227 
c22a 
c22c 
c22e 
c231 
c233 
c236 
c239 
c23a 
c23c 
c23e 
c241 
c249 
c24b 
c24c 
c24e 
c251 
c253 
ς256 
c259 
c25b 
c25c 
c25e 
c261 
c263 
c265 


a2 
bd 
20 
eg 
40 
20 
a9 
20 
4c 
8d 
a2 
ad 
20 
Be 
Bd 
ad 
20 
8e 
8d 
a2 
20 
a2 
bd 
20 
68 
eo 
dO 
4c 
99 
00 
00 
a2 
20 
a2 
bd 
20 
e8 
60 
40 
4c 
42 
a9 
a8 
a2 
20 
a9 
20 
20 
a9 
aß 
a2 
20 
a9 
a2 
80 


c2 
ff 


ff 


c1 
cl 
c2 


c2 
c2 
c2 
c2 
c2 
c2 
c2 
c2 


ff 


c2 
ff 


ff 
3a 
20 
ff 


c2 
ff 


ff 
30 


ff 


ff 
ff 


tf 


dirout 


sendcmd 


comdout 


cmdstr 
track 

sector 
bufpnt 


pntout 


buftxt 
opndir 


ldx 
lda 
jsr 
inx 
bne 
jsr 
lda 
jsr 
jmp 
sta 
ldx 
lda 
jsr 
stx 
sta 
lda 
jsr 
stx 
sta 
ldx 
jsr 
ldx 
lda 
jsr 
inx 
cpx 
bne 
jap 
.asc 
.byt 
.byt 
ldx 
jsr 
ldx 
lda 
jsr 
inx 
cpx 
bne 
jap 
WEI: 
lda 
tay 
ldx 
jsr 
lda 
jsr 
jsr 
lda 
tay 
ldx 
jsr 
lda 
ldx 
ldy 


#0 
buffer,x 
write 


dirout 
clrch 

#" 2" 
sendcad 
enddir 
cadstr+i 
#15 
track 
numbasc 
track 
track*1 
sector 
numbasc 
sector 
sector*1 
#15 
ckout 

#0 
cadstr ,x 
write 


; block-write befehl senden 


%bufpnt-cadstr 


comdout 
clrch 


"uls13 0 " 


0,0, "n n 


#opndir-buftxt 


pntout 
clrch 


"b-p 13 0" 


#15 


#8 
setpar 
#0 
setnam 
open 
#13 


#8 
setpar 
#1 
#< dadr 
#> dadr 
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3250: c267 20 bd ff jsr setnam 


3260:  c26a ἃς cO ff jmp open 
3270:  c26d 23 dadr .byt "4" 
3280:  c26e αὐ Od clsdir lda #13 
3290: c270 20 c3 ff jsr close 
3300: c273 a9 04 lda #15 
3310: c275 4c c3 ff jmp close 
3320: c278 a2 30 numbasc ldx #"0" ; hexzahl nach ascii 
3330: c27a 38 sec 

3340: c27b e9 Oa numbi sbc #10 
3350: c27d 90 05 bcc numb2 
3360:  c27f ef inx 

3370: c280 bO f? bcs numbi 
3380: c2B2 69 3a numb2 adc #"9"+1 
3390:  c284 60 rts 

3400: c285 Od message .byt cr 

3410:  c286 44 49 53 .asc “disk-monitor v1.0" 
3430:  c297 98 ascdmp tya 

3440:  c298 38 sec 

3440:  c299 eng 08 sbc #count 
3440:  c29b aB tay 

3450:  c29c 20 62 cO jer space 
3460:  c29f a? 12 lda #18 ; rvs on 
3470: c2al 20 d2 ff jsr write 
3480: c2a4 a2 08 ldx #count 
3490: c2a6 b9 eO c2 ac? lda buffer,y 
3500:  c2a9 29 7f and  4$7tf 
3510:  c2ab CH 20 cap #" " 
3920: c2ad bO 04 bcs ac3 
3530: c2af a9 2e lda #"." 
3540: c2bi dO 05 bne ac4 
3550: c2b3 b? eO c2 ac3 lda buffer,y 
3560: c2b6 20 d2 ff ach jsr write 
3970:  c2b9 αὐ 00 lda #0 

3570: c2bb 85 d4 sta quotflg 
3580: c2bd c8 iny 

3580: c2be ca dex 

3990:  c2bf dO ei bne ac2 
3600: c2cl a9 92 Ida #146 ; rvs off 
$5610: c2c3 ἃς d2 ff jmp write 
3620: c2ch ad 01 02 testend lda wrap 
3620:  c2c9 dO 06 bne endend 
3630: c2ch cc 04 02 cpy bis 
3640: c2ce bO 01 bcs endend 
3650: c2d0 60 rts 

3660: c2di 68 endend pla 

3660: c2d2 68 pla 

3660: c2d3 4c 0d cO jap start 
3670: c2d6 20 65 cO altrit jsr crlf 
3680: c2d9 a9 3a lda #":" 
3690: c2db a2 Se ldx #prompt 
3700:  c2dd ἃς eb cO jap wrtwo 
3730: «280 buffer = * ; 256 bytes buffer für block 
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Nachfolgend finden Sie wieder das BASIC-Programm zur Eingabe 
des Disk-Monitors. 


Disk-Monitor, 64er Version 


100 for i = 49152 to 49887 

110 read x : poke i,x : s=s+tx : next 

120 data 162, 0,189,133,194, 32,210,255,232,224, 18,208 
130 data 245,162, 13,169, 62, 32,235,192,169, 0,141, 1 
140 data 2, 32, 51,193,201, 62,240,249,201, 32,240,245 
150 data 162, 5,221,106,192,208, 12,142, O, 2,189,112 
160 data 192, 72,189,118,192, 72, 96,202, 16,256, 76, 15 
170 data 192,133,151, 32, 98,192,185,224,194, 32,220,192 
180 data 200,208, 3,238, 1, 2,198,151,208,237, 96, 32 
190 data 254,192,144, 3,153,224,194,200,198,151, 96, 52 
200 data 98,192,169, 32, 44,169, 13, 76,210,255, 58, 87 
210 data 82, 77, 64, 88,192,195,195,192,195,227,192,144 
220 data 144,123, 62,122,160, 0,140, 3, 2,156,140, 4 
230 data 2, 32,207,255,201, 13,240, 23, 32,254,192,144 
240 data 18,141, 3, 2, 32,207,255,201, 13,240, 8, 32 
250 data 254,192,144, 3,141, 4, 2,172, 3, 2, 32,198 
260 data 194, 32,214,194,152, 32,220,192, 32, 98,192,169 
270 data 8, 32, 61,192, 32,151,194, 76,166,192, 76, 13 
280 data 192, 32,254,192,144,248,168,169, 8,133,151, 32 
290 data 51,193, 32, 51,193, 32, 85,192,208,248, 32,151 
300 data 194, 76, 13,192, 72, 74, 74, 74, 74, 32,244,192 
310 data 170,104, 41, 15, 32,244,192, 72,138, 32,210,255 
320 data 104, 74,210,255, 24,105,246,144, 2,105, 6,103 
330 data 58, 96,169, 0,141, 2, 2, 32, 51,193,201, 32 
340 data 208, 9, 32, 51,193,201, 32,208, 15, 24, 96, 32 
350 data 40,193, 10, 10, 10, 10,141, 2, 2, 32, 51,193 
360 data 32, 40,195, 13, 2, 2, 56, 96,201, 58, ,B, 41 
370 data 15, 40,144, 2,105, B, 96, 32,207,255,201, 13 
380 data 208,248,104,104, 76, {3,192, 32,207 ,255,201, 13 
oe: 390 data 208, 39,169, 0,133,144, 32,101,192,169, 8,133 
S G 400 data 186, 32,180,255,169,111,133,185, 32,150,255, 32 
410 data 165,255, 36,144,112, 5, 32,210,255,208,244, 32 
420 data 171,255, 76, 15,192,201, 56,240, 29, 72,169, 8 
430 data 133,186, 32,177,255,169,111,133,185, 32,147,255 
440 data 104, 32,168,255, 3$2,207,255,201, 15,208,246, 32 
450 data 174,255, 76, 13,192, 32, 51,195, 32,254,192,144 
460 data 245,141, 39,194, 32, 51,193, 32,254,192,144,234 
470 data 141, 42,194, 32, 73,194,173, O, 2,201, 1,240 
480 data 30,169, 49, 32,237,193,162, 13, 32,198,255, 162 
490 data O, 32,207,255, 157,224,194, 232,208,247, 32,204 
900 data 255, 32,110,194, 76, 13,192, 32, 44,194,162, 13 
910 data 32,201,255,162, 0,189,224,194, 32,210,255, 232 
520 data 206,247, 32,204,255,169, 50, 32,237,193, 76,201 
330 data 193,141, 32,194,162, 15,173, 39,194, 32,120,194 
940 data 142, 39,194,141, 40,194,173, 42,194, 32,120,194 
550 data 142, 42,194,141, 45,194,162, 15, 32,201,255,162 
360 data 0,189, 31,194, 52,210,255,232,224, 13,208,245 
970 data 76,204,255, 85, 49, 58, 49, 51, 32, 48, 32, O 
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980 data O, 32, O, 0,162, 15, 32,201,255,162, 0,189 
990 data 65,194, 32,210,255,232,224, 8,208,245, 76,204 
600 data 255, 66, 45, BO, 32, 49, 51, 32, 48,169, 15,168 
610 data 162, 8, 32,186,255,169, O, 32,189,255, 32,192 
620 data 255,169, 13,168,162, 8, 32,186,255,169, 1,142 
630 data 109,160,194, 32,189,255, 76,192,255, 35,169, 13 
640 data 32,195,255,169, 15, 76,195,255,162, 48, 56,233 
650 data 10,144, 3,232,176,249,105, 58. 96, 13, 68, 73 
660 data 83, 75, 45, 77, 79, 78, 73, 84, 79, 82, 32, 86 
670 data 49, 46, 48,152, 56,235, 8,168, 32, 98,192,149 
680 data 18, 32,210,255,162, 8,185,224,194, 41,127,201 
690 data 32,176, 4,169, 46,208, 3,185,224,194, 32,210 
700 data 255,169, 0,133,212,200,202,208,229,169,146, 76 
710 data 210,255,173, 1, 2,208, 6,204, 4, 2,176, 1 
720 data 96,104,104, 76, 13,192, 32,101,192,169, 58,162 
730 data 62, 76,235,192 

740 if s «» 90444 then print "fehler in datas ''" : end 

790 sys 49152 


Disk-Monitor, 20er Version 


Damit das Programm auch auf dem VC 20 in der  Grundversion 
läuft, wurde das Ladeprogramm in zwei Teile zerlegt. Geben 
Sie beide Programm ein und speichern Sie sie jeweils unter 
dem Namen "dos lader.1" bzw. "dos lader.2" auf Diskette ab. 
Um den DOS-Monitor zu laden, laden Sie bitte das erste 
Programm ('dos lader.1') von Diskette und starten Sie es mit 
‘run’. Wenn alle data” s in Ordnung sind, wird automatisch der 
zweite Teil des Laderprogramms nachgeladen und anschließend 
der DOS-Monitor gestartet, sofern auch hier keine Fehler in 
den data-Statements sind. 


100 poke 55, 6690 and 255 : poke 56, 6690 / 256 5 clr 
105 for i = 6690 to 7056 :rem dos lader.1 

110 read x : poke i,x : s=s+tx =: next 

120 data 162, 0,189,144, 28, 32,210,255,232,224, 18,208 
130 data 245,162, 13,169, 62, 32, 7, 27,169, 0,141, 1 
140 data 2, 32, 79, 27,201, 62,240,249,201, 32,240,245 
150 data 162, 5,221,140, 26,208, 12,142, O, 2,189,146 
160 data 26, 72,189,152, 26, 72, 96,202, 16,236, 76, 47 
170 data 26,133,151, 32,132, 26,185, 0, 29, 32,248, 26 
180 data 200,208, 3,238, 1, 2,198,151,208,257, 96, 32 
190 data 26, 27,144, 3,155, 0, 29,200,198,151, 96, 32 
200 data 132, 26,169, 32, 44,169, 13, 76,210,255, 58, 87 
210 data 82, 77, 64, 88, 26, 27, 27, 26, 27,228,223,175 
220 data 175,157, 90,102,160, 0,140, 3, 2,136,140, 4 
230 data 2, 32,207,255,201, 13,240, 23, 32, 26, 27,144 
240 data 18,141, 3, 2, 32,207,255,201, 13,240, 8, 32 
250 data 26, 27,144, 3,141, 4, 2,172, 3, 2, 32,229 
260 data 28, 32,245, 28,152, 32,248, 26,169, 4, 32, 95 
270 data 26, 32,182, 28, 76,200, 26, 76, 47, 26, 32, 26 
280 data 27,144,248,168,169, 4,133,151, 32, 79, 27, 32 
290 data 117, 26,208,248, 32,182, 28, 76, 47, 26, 72, 74 
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data 74, 74, 74, 32, 16, 27,170,104, 41, 15, 32, 16 
data 27, 72,138, 32,210,255,104, 76,210,255, 24,105 
data 246,144, 2,105, 6,105, 58, 96,169, 0,141, 2 
data 2, 32, 79, 27,201, 32,208, 9, 32, 79, 27,201 
data 32,208, 15, 24, 96, 32, 68, 27, 10, 10, 10, 10 
data 141, 2, 2, 32, 79, 27, 32, 68, 27, 13, 2, 2 
data 56, 96,201, 58, 8, 41, 15, 40,144, 2,105, 8 
data 96, 32,207,255,201, 13,208,248,104,104, 76, 47 
data 26, 32,207,255,201, 13,208, 39,169, 0,133,144 
data 32,135, 26,169, 8,133,186, 32,180,255,169,111 
data 133,185, 32,150,255, 32,165,255, 36,144,112, 5 
data 32,210,255,208,244, 32,171,255, 76, 47, 26,201 
data 36,240, 29, 72,169, 8,133 

if s <> 35614 then print "fehler in datas ''" : end 

load “dos lader.2",8 


clr : for i = 7057 to 7422 :rem dos lader.2 

read x : poke i,x : s=s+x : next 

data 186, 32,177,255,169,111,133,185, 32,147,255,104 
data 32,168,255, 32,207,255,201, 15,208,246, 32,174 
data 255, 76, 47, 26, 76, 47, 26, 32, 79, 27, 32, 26 
data 27,144,245,141, 70, 28, 32, 79, 27, 32, 26, 27 
data 144,234,141, 73, 28, 32,104, 28,173, O, 2,201 
data 1,240, 30,169, 49, 32, 12, 28,162, 13, 32,198 
data 255,162, 0, 32,207,255,157, 0, 29,232,208,247 
data 32,204,255, 32,141, 28, 76, 47, 26, 32, 75, 28 
data 162, 13, 32,201,255,162, 0,189, 0, 29, 32,210 
data 255,232,208,247, 32,204,255,149, 50, 32, 12, 28 
data 76,232, 27,141, 65, 28,162, 15,173, 70, 28, 32 
data 151, 28,142, 70, 28,141, 71, 28,173, 73, 28, 32 
data 151, 28,142, 73, 28,141, 74, 28,162, 15, 32,201 
data 255,162, 0,189, 62, 28, 32,210,255,232,224, 13 
data 208,245, 76,204,255, 85, 49, 58, 49, 51, 32, 48 
data 32, Ον 0, 32, 0, 0,162, 15, 32,201,255,162 
data 0,189, 96, 28, 32,210,255,232,224, 8,208,245 
data 76,204,255, 66, 45, 80, 32, 49, 51, 32, 48,169 
data 15,168,162, 8, 32,186,255,169, O, 32,189,255 
data 32,192,255,169, 13,168,162, 8, 32,186,255,169 
data 1,162,140,160, 28, 32,189,255, 76,192,255, 35 
data 169, 13, 32,195,255,169, 15, 76,195,255,162, 48 
data 56,233, 10,144, 3,252,176,249,105, 58, 96, 13 
data 48, 73, 83, 75, 45, 77, 79, 78, 73, 84, 79, 82 
data 32, 86, 49, 46, 48,152, 56,233, 4,168, 32,132 
data 26,169, 18, 32,210,255,162, 4,185, 0, 29, 41 
data 127,201, 32,176, 4,169, 46,208, 3,185, 0, 29 
data 32,210,255,169, 0,133,212,200,202,208,229,149 
data 146, 74,210,255,173, 1, 2,208, 6,204, 4, 2 
data 176, 1, 96,104,104, 76, 47, 26, 32,135, 26,169 
data 58,162, 62, 76, 7, 27 

if s <> 39496 then print "fehler in datas ''" : end 

sys 6690 
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5 Die großen CBM-Floppys 


uel IEC-Bus und serieller Bus 


Commodore 64 und VC 20 haben serienmäßig einen seriellen Bus, 
über den Peripheriegeräte angeschlossen werden können, z.B. 
die Floppy VC 1541 sowie Drucker und Plotter. 


Das Busprinzip ermöglicht es, die Geräte gleichzeitig 
anzuschließen. Damit die Gräte unterschieden werden können, 
wird jedem Gerät eine Geräteadresse zugewiesen, unter der man 
das Gerät ansprechen kann. Die Standardadresse der Floppy ist 
8, ein Drucker wird meist mit Adresse 4 angesprochen. Die 
Geräteadresse ist identisch mit der Primäradresse im 
OFEN-Befehl, so öffnet z.B. 


OPEN 1,4 


einen Kanal zum Drucker. Um bei der Floppy nun mehrere 
Dateien gleichzeitig öffnen zu können, dient eine weitere 
Adresse, die Sekundäradresse, zur Unterscheidung. Die Floppy 
verfügt über 16 Sekundäradressen von ο bis 15. Drei 
Sekundäradressen dienen festen Zwecken, während die übrigen 
13 frei benutzt werden können: 


Sekundäradresse O dient zum Laden von Frogrammen. 
Sekundäradresse 1 dient zum Abspeichern von Programmen. 
Sekundäradresse 15 ist der Kommando- und Fehlerkanal. 


Die übrigen Sekundäradressen 2 bis 14 können frei zum öffnen 
von Dateien benutzt werden. 


Die übertragung zwischen Commodore 64 und VC 1541 geschieht 
seriell über diesen Bus. Dabei bedeutet seriell, daß die 
Daten bitweise über nur eine Leitung übertragen werden. 
Intern werden die Daten im Rechner und Floppy jeweils zu 8 
Bit gleich ein Bit gleichzeitig gespeichert und verarbeitet. 
Soll ein Byte nun seriell übertragen werden, so wird jedes 
Bit einzeln über eine Datenleitung gesandt. Damit Sender und 
Empfänger sich bei der Übertragung auf einander abstimmen 
können, wer den noch sogenannte ‘Handshake ‘—Lei tungen 
benötigt. Sehen wir uns den Anschluß des seriellen Bus einmal 
genauer an, so finden wir é Leitungen: 


F 


3 


Belegung 
SRG IN 
Masse 
ATN 

CLCK 
DATA 
RESET 


D UN Mrt 
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Nill der Rechner Daten zur Floppy übertragen, so wird die 
Leitung ATN (Attention, Achtung) gesetzt. Ist dieses Signal 
gesetzt, unterbrechen alle Geräte am Bus ihre augenblickliche 
Arbeit und übernehmen das nachfolgend übertragene Byte. Die 
Daten kommen bitweise über die Leitung DATA. Damit die 
Empfänger wissen, wann das nächste Bit kommt, wird bei jeden 
Bit die Leitung CLCK (Clock, Takt) invertiert. Dieses 
übertragene Byte ist die Geräteadresse. Stimmt dieser Wert 
nicht mit der Geräteadresse der empfangenden Geräts überein, 
werden die weiteren Daten ignoriert. Ist das Gerät jedoch 
adressiert, so kann eine evtl. Sekundäradresse übertragen 
werden. Gleichzeitig mit der Gerateadresse (O bis 31) wurde 
mittels der restlichen drei Bit dem Gerät noch mitgeteilt, ob 
es Daten empfangen (LISTEN) oder selbst Daten senden (TALK) 
soll. Abhängig davon werden jetzt Daten vom Rechner oder von 
adressierten Gerät gesandt. 


Die Leitung RESET versetzt beim Einschalten des Computers 
alle angschlossenen Geräte in den Grundzustand. über die 
Leitung SR@ IN (Service Request, Bedi enungsanforderung) 
können Peripheriegeräte dem Buscontroller (in unserem Falle 
immmer dem Computer) melden, wenn z.B. Daten bereit stehen. 
Diese Leitung wird Jedoch vom Betriebssystem der 
Commodorerechner nicht abgefragt. 


Will man mehrere Floppys gleichzeitig anschließen, so müssen 
die Geräte unterschiedliche Adressen haben. Soll dies nur 
gelegentlich geschehen, kann dies mit dem Programm 'DISK ADR 
CHANGE' geschehen, das in Abschnitt 4.2.3 beschrieben ist. 
Die neue Adresse, z.B. 9, bleibt jedoch nur solange erhalten, 
bis das Gerät wieder ausgeschaltet wird. Soll die änderung 
dauerhaft sein, kann dies durch Trennen einer Brücke im Gerät 
erfolgen. 


Analog zu Frinzip des seriellen Bus funktioniert auch die 
Datenübertragung über den IEC- oder IEEE 488 Bus. Der 
wichtigste Unterschied besteht jedoch darin, daß die Daten 


nicht seriell, sondern parallel über 8 Datenleitungen 
gleichzeitig übertragen werden. Außerdem sind noch 
zusätzliche Handshakeleitungen vorhanden, so daf3 der 


parallele IEC-Bus ein 24adriges Kabel benötigt. Der 
Hauptvorteil des IEEE 488 Bus besteht aufgrund der 
gleichzeitigen übertragung eines kompletten Bytes in dem 
damit erreichten Geschwindigkeitsvorteil. Durch Messungen 
ergibt sich, daß der IEC-Bus etwa 5 mal schneller als der 
serielle Bus ist: 1,8 KB/s gegenüber 0.4 KB/s. Damit dauert 
das Laden eines Programms von 10 KByte mit der VC 1541 ca. 25 
Sekunden; auf der sonst identischen CBM 2031 jedoch weniger 
als 6 Sekunden. Allein aus diesem Grunde kann es sich also 
schon lohnen, seinen Rechner mit einem IEC-Bus auszurüsten. 


Gleichzeitig besteht damit die Möglichkeit, auf alle anderen 
Peripheriegeräte der großen CBM-Computer zugreifen zu können. 
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5.2 Gegenüberstellung aller CBM-Floppy 


In der folgenden Tabelle finden Sie die technischen Daten 
aller CBM-Floppys zum Vergleich gegenübergestellt. 


Die technischen Daten aller Commodore-Floppy-Laufwerke 


Modell 1541 2031 4040 8050 8250 
DOS—Ver sion (en) 2.6 2.6 2.1/ 2.9/ 247 
2.7 2.7 
Laufwerke 1 1 2 2 2 
Këpfe pro Laufwerk 1 1 1 1 2 
Speicherkapazität 170 K 170K 340 K 1.05 M 2.12 M 
Sequentielle Datei 168 K 168 K 168 K 521 K 1.05 M 
Relative Datei 167 K 167 K 167 K 183 K/ 1.04 M 
518 K 
Pufferspeicher (KB) 2 2 4 4 4 
Tracks 35 35 35 77 77 
Sektoren pro Track 17-21 17-21 17-21 23-29 23-29 
Bytes pro Block 256 256 256 256 256 
freie Blocks 664 664 1528 4104 8266 
Directory und BAM (Track) 18 18 18 38/39 38/39 
Directoryeinträge 144 144 144 224 224 
übertragungsrate (KB/s) 
intern 40 40 40 40 40 
über ser. /IEC-Bus 0.4 1.8 1.8 1.8 1.8 
Zugriffszeiten (ms) 
Track zu Track 30 30 5ο 9 I 
mittlere Zeit 560 560 560 125 125 
Umdrehungen pro Minute 300 300 300 300 300 


Uberblick über die "großen" CBM-Floppys 


Die VC-1541 Floppy ist von der Speicherkapazität her die 
kleinste CBM-Floppy, bis jetzt jedoch auch die einzige Floppy 
mit seriellem Bus zum direkten Anschluß an Commodore 64 und 
νο 20. 


Von den Funktionen, dem Aufbau und der Arbeitsweise her 
identisch ist die Floppy CBM 2051. Der einzige Unterschied 
zur VC 1541 ist die Ausrüstung mit dem parallelen IEEE 488 
Bus im Gegensatz zum seriellen Bus. Dies bringt eine 
bedeutende Erhöhung der Uber tragungsgeschwindigkeit zum 


Rechner etwa um den Faktor 5 mit sich. Zum Anschluß an 
Commodore 64 oder VC 20 benötigt man ein  IEC-Bus-Modul, 
ebenso wie bei allen weiteren CBM-Floppys. Vom Speicherformat 
ist die CBM 2031 voll kompatibel zur VC 1541; beide haben 170 
KB pro Diskette. Disketten die auf einem Gerät beschrieben 
wurden, können vom jeweils anderen Gerät gelesen und 
gschrieben werden. Dies gilt auch für die nächste Floppy in 
dieser Reihe, die CBM 4040. Die 4040 ist ein  Doppellaufwerk 
mit zweimal 170 KB. 


Der Vorteil eines Doppellaufwerks liegt nicht allein in der 
doppelten Speicherkapazität, sondern vor allem in der Mög- 
lichkeit, Daten von einem Laufwerk zum anderen zu über- 
« tragen. Dies ist einmal mit kompletten Programmen und Dateien 
mit dem auch bei der 1541 vorhandenen Befehl 'copy' möglich, 
z.B. kopiert 


OPEN 1,8,15, "C1:TEST=0:TEST" bzw. 
COPY "TEST",DO TO "TEST",Di 


die Datei 'TEST' von Laufwerk O unter dem gleichen Namen auf 
Laufwerk 1. Ebenso kann man mehrere Dateien von unter- 
schiedlichen Laufwerken zusammenfügen ('concat'). Die wich- 
tigste Möglichkeit des Doppellaufwerks ist jedoch das 
Duplizieren von kompletten Disketten. Dies geschieht eben- 
falls mit einem Befehl vom Rechner; das Laufwerk formatiert 
dann automatisch die neue Diskette und kopiert dann Track für 
Track von einem Laufwerk auf das andere. Der Befehl dazu 
lautet: 


DPEN 1,8,15, "D1=0" bzw. 
BACKUP DO TO Di 


Das ganze dauert auf der 4040 keine 3 Minuten; der Rechner 
kann während dieser Zeit weiterarbeiten, da die Floppy diese 
Arbeit komplett übernimmt. 


Die beiden anderen CBM-Floppys CBM 8050 und 8250 beschreiben 
die Disketten mit doppelter Dichte (’double density’, 77 
Tracks). Auf der 1541 bzw. 4040 beschriebene Disketten sind 
dem zufolge nicht mit 8050/8250-Disketten kompatibel. 
Programme und Daten lassen sich jedoch, z.B. mit dem Programm 
"COFY/ALL’, von einem Format auf ein anderes übertragen. 
Dafür treten diese Flopppies durch die bedeutend höhere 
Speicherkapazität hervor: 1 MB bei der 8050 und 2 MB bei der 
8250. Die doppelte Kapazität der 8250 wird durch Ausnutzen 
beider Diskettenseiten von der Floppy erreicht ("double 
sided’), sie hat 2 Schreib/Leseköpfe pro Laufwerk. Um die 
gesamte Kapazität auch für relative Files ausnutzen zu können 
(siehe Kapitel 5.4) wurde hierbei ein sogenannter 
'Super-Side-Sektor' eingeführt, der die Zeiger auf 127 
Gruppen von je 6 Side-Sektor-Blöcken enthält. Dadurch kann 
hier eine relative Datei (theoretisch) 23 MB umfassen (bei 
der 8050 ab DOS-Version 2.7). über IEC-Bus lassen sich die 
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Floppys problemlos an Commodore 64 und VC 20 anschließen, so 
daß auch diese Computer ‘on line‘ auf mehrere Megabyte 
zugreifen können. 


Ein weiterer Vorteil der großen CBM-Floppys ist ihr doppelt 
so großer Pufferspeicher. Dadurch sind Sie in der Lage, mehr 
Dateien gleichzeitig offen zu halten als dies mit der VC 1541 
möglich ist. Hier können Sie gleichzeitig bis zu 5 
sequentielle Dateien oder bis zu 3 relative Dateien offen 
halten, natürlich auch eine Kombination daraus, z.B. 2 
relative und Z sequentielle. 


Im folgenden werden die unterschiedliche Lage und Aufbau von 
BAM und Directory beim 1541/4040 Format mit dem  8050/ 
8250-Format verglichen. 

Beim 8050/8250-Format werden die Tracks 38 und 39 für BAM und 
Directory benutzt. In Track 39 Sektor O stehen der 
Diskettenname und das Formatkennzeichen. 


»:00 26 OO 43 OO OO OO 43 42 &.C...CB 
2:08 4E 20 58 50 35 30 AO AO M 8050 
»:10 AO ΑΟ ΑΟ AO AO AO no AO 

2518 30 31 AO 32 43 ΑΟ AO no οι 2C 


In Byte O und 1 steht der Track/Sektor-Zeiger auf den ersten 
BAM Block (Track 38 Sektor O). Byte 2 enthält das 
Formatkennzeichen 'C'. Byte drei bis 5 sind ungenutzt. Von 
Byte 6 bis 21 steht der Diskettenname, aufgefüllt mit ‘Shift 
Space’, in unserem Falle ‘CBM 8050’. Byte 24 und 25 enthalten 
die ID 'O1', während in Byte 27 und 28 das DOS-Format  '2C' 
steht. Der Rest des Blocks ist unbenutzt. 


Die BAM passt hier nicht mehr in einen Block und wird daher 
über Track 38 verteilt; bei der 8050 werden Sektor Ο und 3 
benutzt, bei der 8250 zusätzlich noch Sektor 6 und 9. Da hier 
auch mehr Sektoren pro Track benutzt werden, mußte der 
BAM-Eintrag für jede Spur vergrößert werden und belegt jetzt 
5 Byte. Dabei enthält das jeweils erste Byte wieder die 
Anzahl der freien Sektoren pro Track und die nachfolgenden 
Bytes enthalten das Bitmuster der freien und belegten 
Sektoren (O = Sektor belegt, 1 = Sektor frei). Hier haben wir 
den Inhalt von Track 38 Sektor O. 


O 26 03 43 OO O1 33 1D FF 
8 FF FF 1F 1D FF FF FF 1F 
ο 1D FF FF FF 1Ε 1D FF FF 
8 FF 1F 1D FF FF FF 1F 1D 
O FF FF FF 1F 1D FF FF FF 
8 1F 1D FF FF FF 1F 1D FF 
:30 FF FF 1F 1D FF FF FF 1F 
»:38 1D FF FF FF 1F 1D FF FF 
»:40 FF 1Ε 1D FF FF FF 1Ε 1D 
»:48 ΕΕ FF ΕΕ 1F 1D FF FF FF 
»:50 1F 1D FF FF FF 1Ε 1D FF 
»:58 FF FF 1F 1D FF FF FF 1F 
»:60 1D FF FF FF 1Ε 1D FF FF 


M A Ww A νυν jw 


[4 
t3 
ul 


»:68 FF 1F 1D FF FF FF 1Ε 1D 
»:70 FF FF FF 1Ε 1D FF FF FF 
»:78 1Ε 1D FF FF FF 1Ε 1D FF 
2:80 ΕΕ FF 1F 1D FF FF FF 1Ε 
»:88 1D FF FF FF 1F 1D FF FF 
»:90 ΕΕ iF 1D FF FF FF 1Ε 1D 
»:98 ΕΕ FF FF 1Ε 1D FF FF FF 
>:AO 1F 1D FF FF FF 1Ε 1D FF 
2298 FF FF 1F 18 FC F3 EF IF 
»:BO 00 00 OO OO OO 00 OO 00 
»:B8 OO OO OO OO 00 OO OO OF 
CO F4 93 46 1A 18 6C FB ΕΕ 
C8 1F OO OO OO OO 00 OO 00 
DO 00 00 00 00 00 00 00 00 
D8 05 OO OO 4D 04 1B FF FF 
EO FF 07 1B FF FF FF 07 1B 
ES FF ΕΕ FF 07 1B FF ΕΕ FF 
FO 
F8 


Ka 
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07 1B FF FF FF 07 1B FF 
FF FF 07 1B FF FF FF 07 


N 


Die Bytes O und 1 zeigen wieder auf den nächsten BAM-Block, 
hier Track 38 Sektor 3. Byte 2 enthält wieder das 
Formatkennzeichen 'C'. In Byte 4 stehen die Tracknummern, für 
die dieser BAM-Teil zuständig ist; hier Track 1 bis 51. Ab 
Position 6 finden wir die 5-Byte-Einträge für jede Spur. Der 
nächste BAM-Block ist analog aufgebaut, ist bei der 8050 für 
die Tracks 52 bis 77 zuständig und belegt die Bytes bis 140. 
Der letzte BAM-Block zeigt immer auf den ersten 
Directory-Block: Track 39, Sektor 1. 


Bei der 8250 sind 4 Blocks für die BAM erforderlich, Track 38 
Sektor O enthält die Tracks 1 bis Si, Track 38 Sektor 3 
enthält 52 bis 100, Track 38 Sektor é enthält Track 101 bis 
150 und Track 38 Sektor 9 schließlich ist für die Tracks 151 
bis 154 zuständig. 


Die Directoryspur, Track 39, enthält noch 28 freie Blocks; es 
sind deshalb 28*8 = 224 Directoryeinträge möglich im Gegen- 
satz zu 144 bei 1541/4040. Der Aufbau der Directory ist bei 
allen Formaten gleich. Im folgenden die Track-Sektor-Belegung 
noch einmal tabellarisch: 


1541 / 4040 8050 / 8250 
Tracks 1 — 17 : O - 20 1 — 39 : O - 28 Sektoren 
18— 24 : O - 18 40 — 53 : O — 26 
25— 30 : O - 17 54 — 64 : O - 24 
31- 35 : O - 16 65 - 77 : O - 22 
nur 8250 
78 -116 : ο - 28 
117 -130 : ο - 26 
151 -141 : O - 24 
142 -154 : O - 22 
Blocks 683 2083 / 4186 
freie Blocks 664 2052 / 4133 
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Mit DATAMAT haben wir das erste Programm in der neuen Reihe der 
DATA BECKER PROGRAMME 
vorgestellt. Ziel dieser neuen Reihe ist es, den Anwendern des COMMODORE 64 
für wenig Geld professionelle Programme zugänglich zu machen. Nur in einem 
Punkt haben wir Kompromisse gemacht: beim Preis. Jedes der Programme 
kostet trotz der außergewöhnlichen Leistungsmerkmale nur 
DM 99,- (unverbind!. Preisempfehlung incl. 14% MwSt.) 


Ab Oktober/November '83 sind auch die folgenden Programme erhältlich: 


PROFIMAT 


Ein Spitzenpaket für Maschinenspracheprogrammierer. PROFIMAT enthält 
nicht nur unseren komfortablen Maschinensprache-Monitor PROFI-MON, 
sondern auch PROFI-ASS, einen sehr leistungsfähigen Assembler für den 
COMMODORE 64. PROFI-ASS bietet unter anderem formatfreie Eingabe, 
komplette Assemblerlistings, ladbare Symboltabellen (Labels), verschiedene 
Möglichkeiten zur Speicherung des erzeugten Maschinencodes, redefinierbare 
Symbole, eine Reihe von Pseudo-Codes (Assembleranweisungen), bedingte 
Assemblierung und die Möglichkeit zur Erzeugung von Assemblerschleifen. 
PROFIMAT kostet komplett nur DM 99.-. 


BASIC 64 


Dieser neue 1-Pass-BASIC-Compiler macht Ihre Programme bis zu 10mal 
schneller. Er erzeugt direkten Maschinencode, der beliebig im Speicher 
plazierbar ist. BASIC 64 unterstützt Fließkommaarithmetik, Stringverwaltung 
und den gesamten 64er Befehlssatz bis auf FRE, TAB, SPC, ON X GOTO/ 
GOSUB, mehrdimensionale Felder und Klammerrechnung. Ein Superknüller für 
nur DM 99,-. 


PASCAL 64 


Endlich ein PASCAL für den 64er. PASCAL 64 hat einen großen Befehlssatz mit 
allen wesentlichen Standardbefehlen und enthält auch Dateiverwaltungsbefehle. 
AOS-Arithmetik real und integer. Kein eigener Editor erforderlich, da im 
Commodore Editor-Modus eingegeben werden kann. PASCAL 64 ist sehr schnell, 
da echter Maschinencode erzeugt wird, und kostet komplett mit ausführlichem 
Handbuch nur DM 99,-. 


SUPERGRAPHIK 64 


Die neueste Version unserer beliebten SUPERGRAPHIK enthält jetzt über 30(!) 
Befehle zur Ausnutzung der fantastischen Möglichkeiten, die der 64 mit 
hochauflósender Graphik und Farbe bietet. Mit SUPERGRAPHIK 64 kónnen Sie 
Punkte, Linien und Kreise ziehen, SPRITES definieren und manipulieren, Farben 
setzen, komplette Graphikbildschirme auf Diskette abspeichern bzw. laden und 
vieles andere mehr. Ergänzt wurde die SUPERGRAPHIK 64 zusätzlich um 
SUPERSOUND, eine neue Befehlserweiterung zur Nutzung der hervorragenden 
Soundmöglichkeiten des 64. Mit SUPERGRAPHIK 64 machen Sie mehr aus 
Ihrem 64er, und das für nur DM 99,-. 


TEXTOMAT 


Ein außergewöhnliches Textverarbeitungsprogramm. Bis zu 255 Zeichen pro 
Zeile mit horizontalem Scrolling, Texte bis zu 24000,-Zeichen, Textbaustein- 
Verarbeitung, umfangreiche Formatierungsmóglichkeiten, Schnittstelle zu 
DATAMAT für Rundschreiben und Serienbriefe und vieles andere mehr. 
TEXTOMAT ist komplett in Assembler geschrieben und sehr schnell. 
TEXTOMAT ist natürlich in deutsch, mit deutscher Bedienerführung und kostet 
mit ausführlichem Handbuch nur DM 99,-. 


DATAMAT 


Eine universelle Dateiverwaltung, die Sie von der Adressverwaltung über die 
Mitgliederverwaltung bis zur Lagerbuchführung auf vielfältigste Weise nutzen 
können. Die frei gestaltbare Eingabemaske kann bis zu 50 Felder, max. 40 
Zeichen pro Feld und max. 253 Zeichen pro Datensatz enthalten. Bis zu 2000 
Datensätze pro Diskette sind möglich. Nach allen Feldern kann sortiert und selek- 
tiert werden, sogar nach mehreren gleichzeitig. Auswertungen können alsListen 
und als Etiketten gedruckt werden. Ein Superprogramm, das zu jedem 64er 
gehören sollte. Komplett mit ausführlichem Handbuch nur DM 99,-. 


KONTOMAT 


Ein Einnahme-Überschußprogramm nach 8 4 (3) EStG mit Kassenbuch, 
Bankkontenüberwachung, automatischer Steuerbuchung (Brutto u. Netto), AfA 
Tabellenerstellung, Kontenblättern & Journal, Ermittlung der USt.-Voranmel- 
dungswerte und Monats- und Jahresrechnung. KONTOMAT ist voll para- 
meterisiert (Firmendaten, Steuersätze, Konten, Buchungstexte) und läßt sich 
damit an Ihre Bedürfnisse anpassen. KONTOMAT ist geeignet für alle 
Selbständigen und Gewerbetreibenden, die nicht laut HGB zur Buchführung 
verpflichtet sind. Komplett mit ausführlichem Handbuch nur 99,-. 


FAKTUMAT 


Eine Sofortfakturierung mit integrierter Lagerbuchführung. Die Kunden- und 
Artikelstammdatei ist voll pflegbar. Steuersätze, Maßeinheiten und Firmendaten 
sind individuell anpaßbar. Schneller Diskettenzugriff auf Kunden- und 
Artikeldaten. Schnittstelle zur Textverarbeitung. Komplett mit ausführlichem 
Handbuch nur DM 99,-. 


SYNTHIMAT 


Mit diesem Superprogramm verwandeln Sie Ihren 64er in einen professionellen, 
polyphonen, dreistimmigen Synthesizer, mit dem Sie über die Tastatur ganze 
Akkorde spielen kónnen. Zu den unglaublich vielen Móglichkeiten dieses 
Programms gehört auch die ,Bandaufnahme-/Wiedergabe" direkt auf bzw. von 
Diskette. Verwandeln Sie Ihren 64er für wenig Geld in eine Super-Musik- 
maschine mit SYNTHIMAT. Komplett mit ausführlichem Handbuch nur DM 99.-. 


DATA BECKER PROGRAMME erhalten Sie dort, wo Sie auch DATA BECKER 
BUCHER bekommen: 

@ im COMMODORE-Fachhandel 

@ in großen Kauf- und Warenhausern 

@ in Fachbuchhandlungen 
oder direkt von DATA BECKER. Vertrieb in der Schweiz über THALI AG und in 
Osterreich über Fachbuchcenter ERB. 


VC-20 COMMODORE 64 EXECUTIVE 


DA STEHT ALLES DRIN! 


VC-INFO 


3/83 ist da! 


Der neue, 80(!)seitige Katalog rund um den 
VC-20, COMMODORE 64 und den neuen 
COMMODORE EXECUTIVE, mit den 
neuesten Software-Hits aus aller Welt, 

- interessantem Zubehör, vielseitigen 
Peripheriegeräten, neuen Superbüchern, 
Programmiertips & Tricks und der 
großen Übersichtstabelle »Was läuft womit«. 
Das VC-INFO 3/83 erhalten Sie gegen 
DM 3,- in Briefmarken. 


IHR GROSSER PARTNER 
FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingerstraße 30 : 4000 Dusseldorf 1 
im Hause AUTO BECKER - Telefon 0211/310010 
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EXECUTIVE COMMODORE 64 VC-20 


DATA BECKER BÜCHER 


Angerhausen ` Brückmann 
Englisch : Gerits 


64 


intern 


Das große Buch zum 
COMMODORE 64 
mit 
dokumentiertem Schaltplan 


EIN DATA BECKER BUCH 


Angerhausen : Englisch 
Gerits 


64 


Tips & Tricks 


Eine Fundgrube für den 
COMMODORE 64 Anwender 


EIN DATA BECKER BUCH 


Jetzt in überarbeiteter und erweiter- 
ter 3. Auflage: 64 INTERN erklàrt 
detailliert Architektur und tech- 
nische Möglichkeiten des C-64, zer- 
legt mit einem ausführlich doku- 
mentierten ROM-Listing Betriebs- 
system und BASIC-Interpreter, 
bringt mehr über Funktion und 
Programmierung des neuen 
Synthesizer Sound Chip und der 
hochauflösenden Graphik, zeigt die 
Unterschiede zwischen VC-20, 
C-64 und CBM 8000 und gibt Hin- 
weise zur Umsetzung von Pro- 
grammen. Zahlreiche lauffertige 
Beispielprogramme, Schaltbilder 
und als Clou: zwei ausführlich 
dokumentierte Original 
COMMODORE Schaltpläne 

zum Ausklappen. Dieses Buch 
sollte jeder 64-Anwender und Inte- 
ressent haben. 

64 INTERN, 3. Auflage 1983, 

ca. 320 Seiten, DM 69,- 


Die überarbeitete und erweiterte 

2. Auflage von 64 TIPS & TRICKS 
enthält eine umfangreiche Samm- 
lung von POKE's und anderen nütz- 
lichen Routinen, Multitasking mit 
dem C-64, hochauflösende Graphik 
und Farbe für Fortgeschrittene, 
mehr über CP/M auf dem C-64, mehr 
über Anschluß- und Erweiterungs- 
möglichkeiten durch USER PORT 
und EXPANSION PORT, sowie 
zahlreiche ausführlich dokumen- 
tierte Programme von der SORT- 
Routine über zahlreiche BASIC- 
Erweiterungen bis hin zur 
3D-Graphik (alle Maschinenpro- 
gramme jetzt mit BASIC-Ladepro- 
gramm!). 64 TIPS UND TRICKS ist 
eine echte Fundgrube für jeden 
COMMODORE 64 Anwender. 

64 TIPS & TRICKS, 2. Auflage 1983, 
ca. 280 Seiten, DM 49,- 


DATA BECKER BÜCHER 


Angerhausen : Brückmann 
Englisch 


VC-20 


intern 


Betriebssystem und Technik 
des VC-20 


EIN DATA BECKER BUCH 


Angerhausen - Riedner 
Schellenberger 


VC-20 


Tips & Tricks 


Eine Fundgrube für den 
VC-20 Anwender 


EIN DATA BECKER BUCH 


Die überarbeitete und erweiterte 

2. Auflage von VC-20 INTERN 
beschäftigt sich detailliert mit 
Technik und Betriebssystem des 
VC-20 und enthält ein ausführlich 
dokumentiertes ROM-Listing, die 
Belegung der ZEROPAGE und 
anderer wichtiger Bereiche, über- 
sichtliche Zusammenfassungen der 
Routinen des BASIC-Interpreters 
und des VC-20 Betriebssystems, 
eine Einführung in die Programmie- 
rung in Maschinensprache, eine 
detaillierte Beschreibung der 
Technik des VC-20 und als Clou 
drei Original COMMODORE 
Schaltpläne zum Ausklappen! Damit 
ist VC-20 INTERN für jeden interes- 
sant, der sich näher mit Technik 
und Maschinenprogrammierung 
des VC-20 auseinandersetzen 
möchte. 

VC-20 INTERN, 2. Auflage 1983, 
ca. 230 Seiten, DM 49,- 


Die überarbeitete und erweiterte 

2. Auflage von VC-20 TIPS & TRICKS 
enthält eine detaillierte Beschrei- 
bung der Programmierung von 
Sound und Graphik des VC-20, 
mehr über Speicherbelegung, 
Speichererweiterung und die 
optimale Nutzung der einzelnen 
Speichermodule, BASIC-Erweite- 
rungen zum Eintippen, umfang- 
reiche Sammlung von Poke's und 
anderen nützlichen Routinen, zahl- 
reiche interessante Beispiel- und 
Anwendungsprogramme, komplett 
dokumentiert und fertig zum Ein- 
tippen (z.B. Spiele, Funktionen- 
plotter, Graphik Editor, Sound 
Editor) und vieles andere mehr. 
VC-20 TIPS & TRICKS ist eine echte 
Fundgrube für jeden VC-20 
Anwender. 

VC-20 TIPS & TRICKS, 2. Auflage 
1983, ca. 230 Seiten, DM 49,- 


DATA BECKER BÜCHER 


Englisch : Szczepanowski 


Das große 


Floppy- 


Buch 


Disketten-Programmierung 
mit COMMODORE Computern 
für Anfänger, Fortgeschrittene 
und Profis 


EIN DATA BECKER BUCH 


Angerhausen : Schellenberger 


64 


für Profis 


Anwendungsprogrammierung 
in BASIC 
für Fortgeschrittene 


EIN DATA BECKER BUCH 


Darauf haben Sie gewartet: Endlich 
ein Buch, das Ihnen ausführlich 
und verständlich die Arbeit mit der 
Floppy VC-1541 erklärt. DAS 
GROSSE FLOPPY BUCH ist für An- 
fanger, Fortgeschrittene und Profis 
gleichermaßen interessant. Sein In- 
halt reicht von der Programmspei- 
cherung bis zum DOS-Zugriff, von 
der sequentiellen Datenspeiche- 
rung bis zum Direktzugriff, von der 
technischen Beschreibung bis zum 
ausführlich dokumentierten DOS 
Listing, von den Systembefehlen 
bis zur detaillierten Beschreibung 
der Programme der Test/Demodis- 
kette. Exakt beschriebene Beispiel- 
und Hilfsprogramme ergänzen die- 
ses neue Superbuch. Mit dem 
GROSSEN FLOPPY-BUCH 
meistern Sie auch Ihre Floppy. 
DAS GROSSE FLOPPY BUCH, 
1983, ca. 320 Seiten, DM 49,- 


Wer besser und leichter in BASIC 
programmieren möchte, der 
braucht dieses neue Buch. 

64 FÜR PROFIS zeigt, wie man er- 
folgreich Anwendungsprobleme in 
BASIC löst und verrät Erfolgsge- 
heimnisse der Programmierprofis. 
Vom Programmentwurf über Menü- 
steuerung, Maskenaufbau, Para- 
meterisierung, Datenzugriff und 
Druckausgabe bis hin zur Doku- 
mentation wird anschaulich mit 
Beispielen dargelegt, wie gute 
BASIC-Programmierung vor sich 
geht. Fünf komplett beschriebene, 
lauffertige Anwendungspro- 
gramme für den C-64 illustrieren 
den Inhalt der einzelnen Kapitel 
beispielhaft. Mit 64 FÜR PROFIS 
lernen Sie gute und erfolgreiche 
BASIC-Programmierung. 

64 FÜR PROFIS, 

1983, 220 Seiten, DM 49,- 
Lieferbar ca. Nov. '83 


